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SEQ 0001 


IDENTIFICATION 


PRODUCT CODE: AC-F7568-MC 


PRODUCT NAME: CVDRCBO DRV11J DIAG TST PRT1 
DATE CREATED: 17=-FEB-82 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ~, ata 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE en: DESCRIBED IN ve DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER gy AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
> aga OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1979, 1982 DIGITAL EQUIPMENT CORPORATION 
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SEQ 0002 


ABSTRACT 
sn SEQ 0003 


THE DRV11-J IS A GENERAL PURPOSE Cetitaro whet. FOR THE 
LSI-11 BUS. IT HAS A BASIC CONFIGURATION OF 64 TRI“STATE IN/OUT 
LINES DIVIDED INTO FOUR GROUPS OR PORTS oF "8 BIT WORDS. 


THERE ARE TWO 4K DIAGNOSTICS aoe i*. DRV1i-J OPTION. 


IGNED TO TEST 
LOGIC FUNCTIONS AND DATA PATHS MADE ACCESSIBLE WITH THE COOPBACK 
CABLE INSERTED INTO THE DRV11-J 1/0 CONNECTORS. 


THE DRV11-J DIAGNOST'C PART 2 OF 2 IS A SERIES OF TESTS 
WITH ORVIT INTERRI'TS DESIGNED TO TEST ALL_LOGIC AND DATA PATHS 
tT aay WITH THE LOOPBACK CABLE INSERTED INTO THE 1/0 


THE DRV11-J IS ingots ON A DOUBLE HEIGHT MODULE. 
THE MODULE CONTAINS TWO 50 PIN CONNECTORS FOR INTERFACING 
TO EXTERNAL USER DEVICES. 


FOR DIAGNOSTIC TESTING, THE DRY11-J CABLE <BCO5W-02) MUST 
BE INSTALLED WITH 1/2 TWIST BETWEEN THE 50 PIN CONNECTORS. 


ST ee en ee ee ge ee 


NOTE: THIS ee HAS BEEN MODIFIED TO RUN IN KXT11 (SBC 14/31) 
BASED SYSTEMS. THE PROGRAM WILL,AUTOMATICALLY ADJUST ITSELF TO RUN 
IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: 


i 
* 
* 
» 
LSi-11, 11/2, AND 11/23 SBC 11/21 7 

CSR RANGE: 160010 TO 177760 174000 TO 177760 * 
PROGRAMMABLE... * 
-»eVECTOR RANGE: 0000 TO 1774 000 TO 374 . 
* 


;3GPA 
PTT eTT TT TTT TTT TT eT TTT errr Tere Terre TeeeTeTeTeTT TTT ttt TTT Titi tt Tit 


@e2eneeeenneaenne 


REQUIREMENTS 


EQUIPMENT 


1. PDP11/03,11/23 COMPUTER OR LSI-11 PROCESSOR 
WITH A MINIMUM OF 4K MEMORY. 


2. SERIAL LINE INTERFACE AND CONSOLE TERMINAL 
3. DRV1i-J OPTION WITH A BCO5W-02 CABLE 
STORAGE 

THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE 





4.0 


5.0 
5.1 


5.2 


eps FORMATTED PAPERTAPES OR XXDP MEDIA 
(FILES WITH .BIC OR .BIN EXTENSIONS ONLY). 


STARTING PROCEDURE 


1. MAKE SURE THE DRV11-J CABLE IS INSERTED WITH 1/2 A TWIST 
ON THE I/0 CONNECTORS OF THE DRV11-J OPT 
THIS WILL CONNECT PORT A TO PORT C AND PORT B TO PORT D. 


2. MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH THE DEFAULT 
VALUES DEFINED IN SECTI of, J T , CHANGE 
LOCATION(S) AS DESIRED VIA THE ‘ADDRESS/* ODT COMMAND. 


3. ae PROGRAM SHOULD ALWAYS BE STARTED “ oF STARTING 
T 200(200G OR .R CVDRCB UNDER XXDP+),T 
INITIALIZES ITSELF PRINTS ITS ID(FIRST TIME AND 
THEN PRINTS THAT THE DRV11-J te IS REQUIRED(FIRST TIHE 
ONLY) AND THEN PRINTS: SWR=XXXXXX NEW= 


WHERE XXXXXX REPRESENTS THE CURRENT VALUE OF THE SOFTWARE 
SWITCH REGISTER. IF NO CHANGES ARE REQUIRED IN THE SWITCH 
REGISTER THEN JUST HIT CARRIAGE RETURN. 

IF CHANGES ARE REQUIRED, THEN A NEW VALUE MAY BE TYPED 
FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SECTION 5.0 FOR SWITCH REGISTER OPTIONS. 


4. IF THE FOLLOWING ERROR OCCURS RIGHT AFTER STARTUP IT IS 
POSSIBLE THAT THE DRV11J LOOPBACK CABLE MAY NOT BE INSTALLED 
OR WAS NOT INSTALLED PROPERLY: 
= Rae | ER 
EXPCT RCVD 


BUSADR 
002204 000002 =166160 100700 000700 
BUSADR MAY BE DIFFERENT DEPENDING ON THE CSR OF THE DRVI1J. 


SOF TWARE SWITCH REGISTER 


OPTIONS 

THE PROGRAM SWITCH DEFAULT MODE 1S = (00000 

IF USING A VIDEO TERMINA T 15 = 1eHALT ON ERROR) 
MAY BE HELPFUL IN KEEPING ie ERROR ON THE SCREEN. 
SWITCH OCTAL FUNCTION 

SW15=1 100000 HALT ON ERROR 

SW14=1 040000 LOOP ON TEST 

SW13=1 020000 INHIBIT ERROR TYPEOUTS 
SW11=1 004000 INHIBIT ITERATIONS 
SwO9=1 001000 LOOP ON ERROR 

Sw08=1 0004XX LOOP ON TEST IN SWR <7-0> 
CONTROL 


1. THE SOFTWARE SWITCH REGISTER "SWREG* (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 


2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 


SEQ 0004 


CONTROL BY TYPING THE ‘CONTROL & . KEYS. THIS 

dy vz: OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 

GiTH A CARRIAGE RETURN. 


ONCE THE ODT MODE HAS BEEN SET CHALT ON ERROR) AN 


ERROR CONDITION on ia BIT15 STEP _# 


om 


ABOVE IS OF NO VALUE, SO 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 
*P* (CONTINUE). 


T_ON #2 
RESORT TO STEP #1 TO ALTER THE 


SEQ 0005 





6.2.1 


6.2.2 


ERROR REPORTING 


ERROR COMMENT 


ALL eae ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF 


TO CONSERVE MEMORY SPACE FOR THE 4K PROGRAM MEMORY 
REQUIREMENT REGISTER ° (R5) IS RESERVED FOR THE 

SBDDAT LOCATION . 

EXAMPLE: CMP $GDDAT,(R5) IS THE SAME AS CMP $GDDAT,SBDDAT. 
ERROR DATA 

ERROR TITLE HEADING 


ERRPC TSTNUM BUSADR EXPCT RCVD 
MXXXKX MXXXXM = XAXMXAXX AAXAXXX AAXAXA 


ERRPC LISTING a coe WHERE THE ERROR WAS DETECTED 
TSTNUM TEST NUMBER WHERE THE ERROR 

BUSADR DRVI1) BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCVD DATA THAT WAS RECEIVED 


ERROR TITLES 


REG TIMEOUT ER REGISTER TIMEOUT ERROR 

REG READ/WRITE ER REGISTER READ/WRITE ERROR 

IRR REG ER ; INTERRUPT REQUEST REGISTER ERROR 
ACR REG ER sAUTOCLEAR REGISTER ERROR 

IMR REG ER ; INTERRUPT MASK REGISTER ERROR 
ISR REG ER ; INTERRUPT SERVICE REGISTER ERROR 


CHIP STAT ER CHIP STATUS ERROR 





SEQ 0006 
















7.0 


7.1 


7.5 


8.0 


MISCELLANEOUS 


DRV11-J BUS ADDRESS MODIFICATION 

MODIFY LOCATION ‘SBASE' (ADDR: 1244) IF BASE BUS ADDRESS 

IS NOT 164160. 

XXDP/APT NOTES 

THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS. 
POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER uP AT 
WHICH TIME THE PROGRAM iS RESTARTED (ONLY ON SYSTEMS WITH 
NON=VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


MULTIPLE DRV11J INTERFACE TESTING 


WITH CONTIGUOUS BUS ADDRESSES. THIS IS ACCOMPLISHED 
BY Ly | USER SETTING UP LOCATION "DEVM' (ADDR: 1246) 
WITH A BIT MAP INDICATING ®t ARE TO BE TESTED. 


I.E. BITO = 1 SAYS TEST 1S , 

BITi = AYS TEST 2ND DRV11J 

BIT2 = 1 SAYS TEST 3RD DRV11J 

BIT3 = 1 SAYS TEST 4TH DRV11J 
1ST UNIT = STARTING CSRA 164160 $DEVM = 1 
2ND UNIT = STARTING CSRA 164140 $DEVM = 3 * 
3RD UNIT = STARTING CSRA 164120 $DEVM = 7 
4TH UNIT = STARTING CSRA 164100 S$DEVM = 17 
RESTRICTIONS 


EXECUTION TIME 


nyt TIME RANGES FROM ABOUT <5 SECONDS ON FIRST 
PASS WITH NO ITERATIONS TO <20 SECONDS WITH ITERATIONS 
ee AFTER FIRST PASS,PER DRV11J UNIT CONNECTED. 
END PASS'' MESSAGE INDICATES ALL TESTS HAVE COMPLETED 
ON ALL SELECTED UNITS. 


SEQ 0007 





9.0 PROGRAM TEST DESCRIPTIONS SEQ 0008 
GENERAL 
THIS DIAGNOSTIC CONTAINS A ee x4 INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DAT. THS a! ma DRV11J OPTION. 
TESTING IS ACCOMPLISHED WITH THE A OF T 
JL CK C PROVIDED FOR DIAGNOSTIC TESTING. 


RV11J LOOP BA ABLE 
A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AY THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 

EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 


TESTING WITH THE DRV11J CABLE ALLOWS FOR TESTING 
OTe PORT _ H PORT C AND THE TESTING OF PORT B 


9.1 TESTS T1=T22 REGISTER CHECKING 


THESE TESTS WILL WRITE/READ PORTS A TO C 
AND WRITE/READ PORTS B TO D ott ae. 


GROWING ZEROS AND NS. 

TESTS ARE PERFORMED TO INSURE INTERACTION WITH 
CONNECTED PORTS AND NO INTERACTION BETWEEN 
UNCONNECTED PORTS. 


9.2 T22-T42 INTERRUPT CONTROL REGISTER CHECKING 
TESTS ARE MADE TO THE INTERRUPT CONTROL CHIP 


NESS 
ONE GROUP'S REGISTERS TO ANOTHER GROUP 'S | 
REGISTERS. 


9.3 TFST 43 = TEST STATUS BITS GINT,S2,S1,S0,GP1,GP2 


EXERCISE THE STATUS BiTS S2,S1.S0 AND GINT FOR 

EACH GROUP CHIP BY SETTING SINGLE IRR BITS TO CAUSE THE 
STATUS BITS TO GO FROM 120 TO 127. EACH IRR BIT 

IS THEN MASKED TO RETURN STATUS BACK TO ORIGINAL 
STATUS WIiH NO IRR BITS SET. 


9.4 144-147 POLLED MODE TESTING 


THIS TEST WILL ily A PATTERNS INTO DBRA WITH 
EITHER LOW TO HIGH OR HIGH TO LOW POLARITIES. 
AFTER PLACING ALL ONES IN DBRA AND THEN SELECTING 
ACTIVE LOW gn errs < oT! SET IRR BITS 


0-7,GR OUP { AND IRR BITSO-3,G : 

THE RPLY SIGNALS WIL if Ser at Rott 

WHEN URITING DBRA IN OUTPUT MODE,THIS WILL 
SET THE RPLY FOR DBRC.(IRR6,GROUP 2) 









WHEN READING DBRC IN INPUT MODE WILL SET 
THE RPLY FOR DBRA.CIRR BIi_4,GROUP 
WHEN WRITING DBRB IN OUTPUT a FAY WILL 













SEQ 0009 


OUTPUT MODE AN AND READING IN INPUT MODE. 
TEST THAT NO RPLY BITS SET WHEN READING IN OUTPUT 
MODE AND WHEN WRITING IN INPUT MODE. 


9.5 T50-151 CSR°S WITH RESET 
SET UP CSR'S IN OUTPUT MODE AND CLEAR 


10.0 LISTING 
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000001 
160000 


165400 
000001 


001100 


000011 


177776 


177774 


177570 


000000 
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3:GPA_  .HEADER “/CVDRCA_DRV11J DIAG TST PRT1/,1979,*/BILL HEAVEY/ 
“TITLE CVDRCB, pry DIAG TST PRT1 


:*DIGITAL EQUIPMENT CORP. 
‘ any NARD, MASS. 01754 


;*PROGRAM BY BILL HEAVEY 


ieTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
[*PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 
s* 


$TN=1 

SSuR=1 160000 ;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
;* EDITED TO PERMIT DRV'S TO RUN ON FALCON (KXT11) 33GPA 
:* G. PASQUANTONIO, JULY °81 +:GPA 


$SuR=165400. 
»SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH USE 

3* Teeeenw 3 3} eee eeeeeeeeeeeee"""" 

3* 15 HALT ON ERROR 

. 14 LOOP ON TEST 

3* 13 INHIBIT ERROR TYPEOUTS 
7* 11 INHIBIT ITERATIONS 

7* 9 LOOP ON ERROR 

38 LOOP ON TEST IN SWR<7:0> 


8 
-SBTTL BASIC DEFINITIONS 
ei Mg Fr OF THE STACK POINTER *** 1100 *** 


STACK= 

-EQUIV EMT,ERROR 33;BASIC DEFINITION OF ERROR CALL 
EQUIV IOT,SCOPE BASIC DEFINITION OF SCOPE CALL 
s*MISCELLANEOUS DEFINITIONS 

T= 11 3;CODE FOR ner git TAB 


LF= 12 +: CODE FOR LIN 

CR= 15 : 3 CODE FOR CARRIAGE RETURN 

CRLF= 200 [CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ER OEESSOR STATUS WORD 

.EQUIV PS,PSW 

STKLMT= 177776 3 STACK LIMIT REGISTER 

PIRQ= 177772 +: PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 HARDWARE SWITCH REGISTER 


3 HARDWARE DISPLAY REGISTER 
3 *GENERAL PURPOSE REGISTER th ed Mest 
RO= 0 NERAL REGIS 


33 TER 
Ri= 3 ‘ECENERAL REGISTER 
R2= 2 Z:GENERAL REGISTER 
R3= Z:GENERAL REGISTER 
R4= 3:GENERAL REGISTER 


7:GENERAL REGISTER 
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CVDRCB DRV11J DIAG TST PRT]. = MACY11 306(1063) 10-AUG-81 10:58 PAGE 1-1 
CVDRCB.P11  10=AUG=81 10:51 BASIC DEFINITIONS  $EQ 0011 
(1) 000006 SP= %6 3:STACK POINTER 
(1) 000007 PC= 27 S:PROGRAM COUNTER 
(1) :*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= 0 :;PRIORITY LEVEL 0 . 
(1) 000049 PRI= 40 SEPRIORITY LEVEL 1 
(1) 000100 PR2= 100 SIPRIORITY LEVEL 2 
(1) 000140 PR3= 140 S:PRIORITY LEVEL 3 
(1) 000200 PR4= 200 SIPRIORI:Y LEVEL 4 
(1) 000240 PR5= 240 S:PRIORITY LEVEL 5 
(1) 000300 PR6= 300 SEPRIORITY LEVEL 6 
(1) 000340 PR7= 340 S:PRIORITY LEVEL 7 
(1) :*"'SWITCH REGISTER" SWITCH DEFINITIONS 
(1) 100000 $w15= 100000 
(1) 640000 Sw14= 40000 
(1) 020000 SWw13= 20000 
(1) 010000 SWwi2= 10000 
(1) 004000 SWwi1= 4000 
(1) 002000 Sw10= 2000 
(1) 001000 SwO9= 1000 
(1) 000400 SWwO8= 400 
(1) 000200 swOo7= 200 
(1) 000100 Sw06= 100 
(1) 000040 swOS= 40 
(1) 000020 Sw04= 20 
(1) 000010 swO3= 10 
a) 000004 SWwO2= 4 
(1) 000002 SwOl= 2 
(1) 000001 swOoO= 1 
(1) EQUIV SWO9,SW9 
(1) “EQUIV SWOB,SW8 7 
(1) “EQUIV SWO7.SW7 
(1) “EQUIV 6.8 
(1) “EQUIV SWOS,SW5 
(1) “EQUIV SW04,SW4 
(1) “EQUIV SW03,SW3 
(1) “EQUIV SwO02,SW2 
(1) “EQUIV SWO1,SW1 
C1) “EQUIV SW00,SWO 
(1) :*DATA BIT DEFINITIONS (BITOO TO B1T15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BITi2= 10000 
(1) 4000 BIT11= 4000 
(1) 002000 BIT10= 2000 
(1) 001000 BITO9= 1000 
(1) 000400 BITOB= 400 
(1) 000200 BITO7= 200 
(1) 000100 BITO6= 100 
(1) 000040 BITOS= 40 
(1) 000020 BIT04= 20 
(1) 000010 BIT03= 10 
(1) 000004 BITO2= 4 
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000002 
000001 


000004 


001000 


000020 
000030 


000040 
000050 
000060 
000070 


000100 
000110 
000120 
000130 


000140 
900160 
000170 


000200 
000240 


000240 
000244 
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BASIC DEFINITIONS 


mM 1 
10:58 PAGE 1-2 


s;TIME OUT AND OTHER ERRORS 
:ZRESERVED AND ILLEGAL INSTRUCTIONS 


7: TRACE TRAP 
:;BREAKPOINT TRAP ‘BPT) 
ipo #1 td TRAP (IOT) **SCOPE** 
: FEMULATOR TRAP (EMT) **ERROR** 
;‘TRAP'* TRAP 
tinty KEYBOARD VECTOR 
eeTTy PRINTER VECTOR 
sPROGRAM INTERRUPT REQUEST VECTOR 
BASE ADDRESS 


R 
;DEFAULT TO ONE DRV11J 


sCLEAR IRR AND IMR 
*CLEAR SINGLE IRR AND IMR BIT 
:CLEAR IMR 
‘CLEAR SINGLE IMR BIT 
:SET ALL IMR BITS 
tSET SINGLE IMR BITS 
:CLEAR IRR 
: CLEAR SINGLE IRR BITS 
T ALL IRR BI 
SET SINGLE IRR BITS 
: CLEAR HIGHEST PRIORITY ISR BIT 
?CLEAR SINGLE ISR BIT 


;LOAD MODE BITS MO-M4 
;LOAD MODE BITS M5-M7 


BITO1= 2 
BITOO= 1 
.EQUIV BITO9,BIT9 
“EQUIV BITO8.B1T8 
eEQUIV BITO7,BIT? 
EQUIV BIT06,BIT6 
“EQUIV B1T05,BIT5 
“EQUIV BIT04,BIT4 
“EQUIV B1T03,B1T3 
“EQUIV BIT02,B1 
“EQUIV 81T01,B1 
“EQUIV BITO0,BITO 
;*BASIC "'CPU'' TRAP VECTOR ADDRESSES 
ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRIVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAPVEC=34 
levees 
PVEC= 64 
TRevECa360 
ABASE= 164 160 
RDY= BIT15 
DIR= BI1T8 
IE= BIT9 
;CHIP COMMAND SUMMARY 
CIRMR= 20 
CSIRMR= 30 
CIMR= 40 
CSIMR= 50 
SIMR= 60 
SSIMR= 70 
CIRR= 100 
CSIRR= 110 
IRR= 120 
SSIRR= 130 
CHPISR= 140 
CISR= 160 
CSISR= 170 
LMD04= 200 
LMD57= 240 
>CHIP MODE BIT PRESELECTION 
MISR= 240 
MIMR= 244 
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000174 
000174 000000 
000176 000000 
000200 000137 001402 


000100 
000100 000104 000200 000002 
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BASIC DEFINITIONS 





SEQ 0013 


MIRR= 250 
CR= 254 Ay 
;CHIP WRITE PRESELECTION 
PACR= 300 ;PRESELECT AUTO CLEAR REG. FOR WRITING 
PIMR= $08 ;PRESELECT IMR REG. FOR WRITING 
PVMA= 40 ;PRESELECT VECTOR MEMORY ADDRESS 


-SBTTL TRAP CATCHER 


-=0 
y*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A *'.+2,HALT’’ 
z*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
3 *LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: . WORD 0 33SOFTWARE DISPLAY REGISTER 


SWREG: _.WO 3sSOFTWARE SWITCH REGISTER 
~SBTTL STARTING ADDRESS(ES) 
JMP @A#START :;JUMP TO STARTING ADDRESS OF PROGRAM 


-=100 
«WORD 104,200,2 :I1F 'B EVENT’ ON Q BUS IS CONNECTED 
IGNORE IT'S INTERRUPT = JUST DO A RTI 


POO PR CO PO POL 
ed ed nt od td SL) 
ee ee ee ee ee ee ee 


Fn ae a et a et a i a il 
Ne ot ot ot  ) - 
ee ee et es ee a a ee a ae ae i ee le ww 


Pte ae Lae Lae i ii a 
ee ee ed eh ed ed ed nd ed 
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ACT11 HOOKS 


-SBTTL ACT11 HOOKS 


RCRA ARERR RE REREERE EERE RARER REE EERE RRERERERERRE REE 


Hooks Pesvecs. BY ACT11 


PC=, SAVE PC 

SENDAD 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“WwORD 0 ;:2)SET LOC. 532 TO ZERO 

-=$SVPC +: RESTORE P 


Arte tt! TEST TIME 

31ST PASS RUN TIME 

ZADDITIONAL RUN TIME 
-SBTTL APT PARAMETER BLOCK 


RARER RARER REREERERERERERERERREERREEREREREERERERRREREREERER 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


{RRA RERREEERRERERRERERAEREREREEEEEREERERREREREREREREREE 


-$X=. 2 sSAVE CURRENT LOCATION 
2=24 SET POWER A. TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
.=44 POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR POINT TO APT HEADER BLOCK 
=. 3zRESET LOCATION COUNTER 


Pere gore paren nag apna niger ge a pen an ge pm 


:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
‘INTERFACE SPEC. 


SAPTHD: 

S$HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT ore ADDR. 

SMBADR: .WORD S$MAIL ;;ADDRESS OF APT MAILBOX S 0-15) 

STSTM: .WORD 6. 32RUN TIM OF LONGEST oer 

SPASTM: .WORD 20. + sRUN iB a3 IN SECS. OF 1ST PASS . 1 UNIT (QUICK VERIFY) 
SUNITM: .WOKD 20. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


» WORD SETEND-SMAIL/2 33LENGTH MAILBOX-E TABLE (WORDS) 
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CvDRCB.P11 10-AUG-81 10:51 COMMON TAGS SEQ 0015 
Be -SBTTL COMMON TAGS 
(2) SERRA RARER RARE EERE EERE RARER RATA R EERE 
(1) 3*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
af 3*USED IN THE PROGRAM. 
(1) 001100 -=1100 
(1) 001100 SCMTAG: 3zSTART OF COMMON TAGS 
(1) 001100 000000 -WORD 0 
(1) oO 10e 000 STSTNM: .BYTE 0 33CONTAINS THE TEST NUMBER 
(1) 00110 000 SERFLG: .BYTE 0 3CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 z:CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 S$LPADR: .WORD 0 3;CONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 S$LPERR: .WORD 0 33CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 00 SERTTL: .WO 0 3:CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITE -BY 0 33CONTAINS ITEM CONTROL BYTE 
(1) 001115 001 ER -BY 1 z:CONTAINS MAX. ERRORS PER TEST 
(1) 001116 000000 SERRPC: .WORD 0 z:CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000 S$GDADR: .WOR 0 zzCONTAINS ADDRESS OF ‘GOOD’ DATA 
(1) 001122 000000 SBDADR: .WORD 0 z:CONTAINS ADDRESS OF "BAD* DATA 
(1) 001124 000000 SGDDAT: .WORD 0 z:CONTAINS ‘GOOD’ DATA 
(1) 001126 000000 SBDDAT: .WORD 0 3:CONTAINS "BAD* DAT 
(1) 001130 000 WORD 0 3;RESERVED--NOT TO BE USED 
(1) 001132 000000 WORD 0 
(1) 001134 000 $SAUT BYTE 0 33AUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 32 INTERRUPT MODE INDICATOR 
(1) 001136 000 WORD 0 
(1) 001140 177570 SWR ORD DSW ZzADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP 3sADDRESS OF DISPLAY REGISTER 
(1) 001144 177560 $TKS: 177560 3zTTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 3zTTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 zzTTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 zz TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 3:CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 $FILLS: .BYTE 2 z:CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 091156 Oie $FILLC: .BYTE 12 ssINSERT FILL CHARS. AFTER A ‘LINE _FEED*’ 
(1) 001157 100 PFLG: .BYTE 0 33''TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
(1) 001160 000000 $TIMES: 0 2s MAX. ER OF ITERATIONS 
(1) 001162 000000 SESCAPE :0 3zESCAPE ON ERROR ADDRESS 
(1) 001164 077 SQUES: .ASCII /?/ 3;QUESTION MARK 
(1) 001165 015 $CRLF: .ASCII <15> 33CARRIAGE RETURN 
(1) 001166 000012 SLF: eASCIZ <12> ;;LINE FEED 
(2) SE RRRRERRRR RRR RA AE EERE RARER ERE REAR EERE REAR RRR ERE 
ts} ~SBTTL APT MAILBOX-ETABLE 
th LLRRR ARERR AERA AAA AAA AAA AAA ee 
(2) . 
(2) 001170 SMAIL: 3;APT MAILBOX 
(2) 001170 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
(2) 001172 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001174 000000 STESTN: .WORD ATESIN ;; NUMBER 
(2) 001176 000000 $PA WORD APASS_ ;;PASS 
(2) 0012 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 2 
(2) 001202 0 : WORD AUNIT ;; UNIT NUMBER 
(2) 001204 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
(2) 001206 000000 SMSGLG: .WORD AMSG!G ;;MESSAGE LENGTH 
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CVDRCB.P11  10-AUG-81 10:51 MAILBOX=E TABLE SEQ 0016 
(2) 901210 SETABLE: ssAPT ENVIRONMENT TABLE 
(2) 001210 000 SENV:  .BYTE AENV ;: ENVIRONMENT BYTE 
(2) 001211 000 SENVM: .BYTE AENVM  ;;ENVIRONMENT MODE BITS 
(2) 001212 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001214 000000 SUSWR: .WORD AUSWR ::USER SWITCHES 
(2) 001216 000000 $CPUOP: .WORD ACPUOP ;;CPU IPE OPTIONS 
(2) je BITS 15-115 CPU TYP 
(2) 3* 17601 11705202, 11/20=03, 11/40=04,11/45=05 
(2) 3* W =06,PDQ=07,0=10 
(2) :* BIT 100REAL. TIME at K 
(2) :* BIT 9=FLOATING POINT PROCESSOR 
(2) = fe BIT 8=MEMORY MANAGEMENT 
(2) 001220 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
(2) 001221 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLKAT 
(2) y* MEM.TYPE BYTE <== (HIGH BYTE) 
(2) 3* 900 NSEC CORE=001 
(2) * 300 NSEC BIPOLAR=002 
(2) = te 500 NS S= 
(2) 001222 000000 $MADR1: .WORD AMADR1 ;;:HIGH ADDRESS, BLKA1 ' _ 
(2) rr HEM LAST ADDR ess BYTES, THIS WORD AND LOW OF “TYPE'' ABOVE 
(2) 001224 000 $MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 
(2) 001225 000 $MTYP2: .BYTE AMTYP2 2 :EM. TYPE ,BLKA 
(2) 001226 000000 SMADR2: .WORD AMADRe :MEM.LAST ADDRESS ,BLK#2 
(2) 001230 000 SMAMS3: .BYTE AMAMS3 ::H.GH ADDRESS,M.S.BYTE 
(2) 001231 000 SMTYP3: .BYTE AMTYP3 :ImEM. TYPE ,BLKA3 
(2) 001232 000000 S$MADR3: .WORD AMADR3 ::MEM.LAST ADDRESS ,BLKA3 
(2) 001234 900 $MAMS4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(2) 001235 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE,BLKA4G 
(2) 236 000000 DR4: .WORD R433 EM LAST ADD 
(2) 001240 $VECT1: .WORD AVECT1 RRUPT VECTOR#1,BUS PRIORITYA1 
(2) 001242 000000 S$VECT2: .WORD AVECT2 :: NTERRUPT VECTORA2BUS PRIORITY#2 
(2) 001244 164160 $BASE: .WORD ABASE zs INTE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001246 000001 SDEVM: .WORD ADEVM :;:DEVICE MAP 
(2) 001250 000000 $CDW1: .WORD ACDW1  ::CONTROLLER DESCRIPTION WORDA1 
ie sOEKIT 





ae 
CVDRCB DRV11J_ DIAG TST PRT1 MACY11 30G(1063) 10-AUG-81 10:58 PAGE 1-7 
CVDRCB.P11 10-AUG-81 10:51 ERROR POINTER TABLE , SEQ 0017 


i} -SBTTL ERROR POINTER TABLE 

(1) :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) ‘THE INFORMATION IS OBTAINED BY USING THF INDEX NUMBER F N 
(1) ; *LOCATION SITES. Tits NUMBER lh WHICH ITEM IN THE TABLE IS PERTINENT. 
(1) *NOTE1: IF S$ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
44 ie NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) 3* EM ::POINTS TO THE ERROR MESSAGE 

(1) 3* DH ::POINTS TO THE DATA HEADER 

(1) 3* DT :z;POINTS TO THE DATA 

3 3* DF s:POINTS TO THE DATA FORMAT 

(1) 

(1) 001252 SERRTB: 

70 sERROR 1 

71 001252 016763 EM1 REG Sage 5 J ER 

72 001254 017115 DH1 TER RPC STNUM BUSADR EXPCT RCVD 

73 001256 017240 DT1 s SERRPC Te TNUM SBDADR $GDDAT S$8DDAT(RS) 
ie 001260 000000 0 

76 sERROR 2 

77 001262 017002 EM2 sREG READ/WRITE ER 

78 001264 017115 DH1 ZER RPC TSTNUM BUSADR EXPCT RCVD 

79 001266 017240 DT1 s SERRPC TSTNUM S$BDADR $GDDAT S$B8DDAT(RS) 
» 001270 000000 0 

82 sERROR 3 

83 001272 017024 EM3 IRR REG ER 

84 001274 017115 DH1 *ERRPC TSTNUM BUSADR EXPCT RCVD 

85 001276 017240 DT1  $ERRPC TSTNUM S$BDADR $GDDAT S$B8DDAT(RS) 
M4 001300 000000 0 

88 sERROR 4 

89 001302 017037 EM4 REG ER 

90 001304 017115 DH1 carpe TSTNUM BUSADR EXPCT RCVD 

91 001306 017240 DT1 s SERRPC TSTNUM S$BDADR $GDDAT S$8DDAT(RS) 
4 001310 000000 0 

94 sERROR 5 

95 001312 017052 EMS 3; IMR REG ERROR 

96 001314 017115 DH1 ‘ERRPC TSTNUM BUSADR EXPCT RCVD 

97 001316 017240 DT1 * $ERRPC TSTNUM $BDADR $GDDAT S$B8DDAT(RS) 
Fs 001320 000000 0 

100 sERROR 6 
101 001322 017065 EM6 ;ISR REG ERROR 

102 001324 017115 DH1 *ERRPC TSTNUM BUSADR EXPCT RCVD 

103 001326 017240 DT1 s SERRPC TSTNUM S$BDADR S$GDDAT S$BDDAT(RS) 
104 001330 000000 0 

105 
106 
107 sERROR 7 

108 001332 017100 EM7 sCHIP STAT ER 

109 001334 017115 DH1 SERRPC TSTNUM BUSADR EXPCT RCVD 

110 001336 017240 DT1 *$ERRPC TSTNUM S$BDADR $GDDAT $BDDAT(RS) 
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— 
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112 

113 

Ne 3; BUS REGISTER ADDRESS POINTERS 
llo 

117 001342 164160 DRCSA: 

118 001344 164162 DRDBA: ABASE+2 

119 001346 164164 DRCSB: ABASE+4 

120 001350 164166 DRDBB: ABASE+6 

121 001352 164170 DRCSC: ABASE+10 

122 001354 164172 DRDBC: ABASE+12 

123 001356 164174 DRCSD: ABASE+14 

ise 001360 164176 DRDBD: ABASE+16 

126 

4 > COMMON PROGRAM LOCATION(S) 
129 001362 000000 TSTNUM: 0 : CONTAINS TEST NUMBER ON ERROR 
130 001364 000001 is | 

131 001366 000000 INTFLG: .WORD 0 

132 001370 000000 -WORD 0 

133 001372 000000 IMRLOC: .WORD 0 

134 001374 000000 ISRLOC: .WOR 0 

135 001376 000000 IRRLOC: .WORD 0 

136 001400 000000 ACRLOC: .WORD 0 
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012637 


005037 
132737 
001403 


012737 
003037 


001003 
012737 
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001100 
001140 
001100 
015336 


001526 


000004 


177777 


001602 
000176 
000174 
009004 


001176 
000200 


001212 
001172 


001244 
174160 


MACY11 306(1063) 
PROGRAM S 


000020 


001211 
001140 


000022 


164160 
001244 





| pact 


-SBTTL PROGRAM START 


CLR 
CMP 


START: 
» SBTTL a Yn hs by COMMON TAGS 
AR THE COMMON TAGS FS ere AR 


(R6)+ 
ASUR, R6 ;;DONE? © 


#1100, SP 
ss INITIALIZE A go A: VECTORS 


#. 
33SIZE FOR A HARD 
7sEQUAL TO 


64$: 
65$: 
66$: 


67$: 


1000$: 


MOV 
MOV #340, aM#10TVEC+2 ; 
MOV #SERROR, a#EMT 
MOV #340 aMEMTVEC+2 331 
MOV #STRAP, aA TRAPVEC 
MOV #340, ai TRAPVEC +2: LEVEL 
MOV #SPURD 
MOV #340. SUbURVECS? ziLEV 
CLR MES ZIN 
CLR See abe 
MOVB «#1, SERMAX 
MOV #.«$LPADR 
MOV L 


SCOPE ,a#1OTVEC five is aoe FOR SCOPE ROUTINE 
VEC ssENT VECTOR FOR ERROR ROUTINE 


VEC,= 
yoo aaa 


DSWR,SWR 
#DDISP,DISPLAY 
#-1,aSWR 


65$ 
#65$, (SP) 


AHSWREG, SWR 
#DISPREG, DISPLAY 


(SP) +, @#ERRVEC 


$PASS 

#APTSIZE ,SENVM 
#SSWREG, SWR 
SFATAL 


—— tf 
So 
io 


#174160, $BASE 
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RVEC :;POUER FAILURE VECTOR 


eSLPERR 
WARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
A ‘'=1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 
a#ERR -(SP) 





SEQ 0019 


EA 
+eFIRST LOCATION TO BE CLEARED 
33CLEAR MEMORY LOCATION 


33;LOOP BACK IF NO 
33;SETUP THE STACK POINTER 


VEL 
TRAP * sania FOR TRAP CALLS 


IT TIALize NUMBER OF ITERATIONS 
33 CLEAR T E ESCAPE ON ERROR ADDRESS 
3sALLOW ONE ERROR PER T 
PHINITIALIZE THE LOOP ADDRESS FOR SCOPE 
THE ERROR LOOP ADDRESS 


g2SA¥E ERROR VECTOR 

23SET f aw yh. VECTOR 

SETUP F A HARDWARE SWICH REGISTER 
zAND A_HAR DUARE DISPLAY REGISTER 

SITRY TO REFERENCE HARDWARE SWR 

3zBRANCH IF NO TIMEOUT TRAP OCCURRED 

2 ¢AND THE een Is NOT = -1 


7:SET UP FOR TRAP RETURN 

33POINT TO SOFTWARE SWR 

3RESTORE ERROR VECTOR 
CLEAR PASS C 

TEST USER sive UNDER tad 
7YES,USE NON-APT SWITC 

7:NO,USE APT SWITCH REGISTER 


CLEAR ERROR NUMBER 
ZCLEAR MESSAGE TYPE 
3¢ TEST R 


7 CLEAR NUMBE 

; CHECK FOR FALCON (KXT11) 72GPA 
: BR IF NOT KXT11 SYSTEM 33GPA 
: YES, pine 10T... 33GPA 
$2 CAND" TRAP TO LEVEL 6. :2GPA 
: IS $BASE VIRGIN ?? ::GPA 
: BR IF NOT. ::GPA 


+ YES, USE ENGINEERING DEFAULT ::GPA 
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153 :CHECK OPERATING ENVIRONMENT 

154 001726 005737 000042 TST arse zARE WE IN ACT/XXDP AUTO MODE? 
155 001732 001410 BEQ 1$ “BRANCH IF NO 

156 001734 023737 000042 000046 CMP a442,aH#46 ‘IS IT ACT AUTO MODE? 

157 001742 001410 BEQ 2$ SBRANCH IF YES 

158 001744 012737 177777 001370 MOV #=-1,XXDP SSET XXDP CHAIN MODE INDICATOR 
159 001752 000404 BR 

160 001754 123727 001210 000001 1S$: CMPB ss SENV, #1 ZARE WE IN APT AUTO MODE? 

161 001762 001003 BNE “BRANCH IF NO 

162 001764 112737 000001 001134 2$: MOVB «#1, SAUTOB ‘SET AUTO MODE INDICATOR 

164 -PRINT TITLE IF NOT IN ACT OR APT AUTO MODE 

165 001772 005227 177777 S$: INC #-1 :FIRST TIME? 

166 001776 001012 BNE §5 ‘SKIP TITLE IF NO 

167 005737 001134 TST SAUTOB TARE WE IN AUTO MODE? 

168 002004 001403 BEQ 4$ 3BRANCH TO TITLE TYPEOUT IF NO 
169 002006 005737 001370 TST XXDP tIS THE AUTO MODE UNDER XXDP? 

170 002012 001404 BEQ 5$ *SkiP TITLE Bi NOT 

171 002014 104401 016666 4S: TYPE ,TITLED PRINT OUT THE TITLE ‘ 
72 002020 104401 016774 TYPE  ,TLCABL SPRINT "DRV11J CABLE REQ'D 

174 “GET THE VA!LUE IN THE SOFTWARE SWITCH REGISTER 

175 002024 005737 001134 S$: TST SAUTOB sARE WE IN AUTOMATIC MODE? 

176 002030 001001 BNE START1 ;BRANCH IF 

177 002032 104406 GTSWR “ASK FOR SR INPUT FROM CONSOLE 
178 002034 005037 001202 START1: CLR UNIT SCLEAR UNIT NUMB 

179 002040 013737 001246 001364 MOV SDEV POSITION OF DRV11-J'S 

180 002046 042737 177760 001364 BIC Foy 760 Os on [UP TO 4 DRV11-J'S ONLY 

181 002054 013701 001244 MOV $BASE , Ri *GET BASE ADDRESS 

182 002060 010137 001342 MOV R1,DRCSA ‘MAKE BUS REG. POINTER = $BASE 
183 002064 032737 000001 001364 BIT #1,DMAP 1S FIRST DRVil-J SELECTED? 

184 002072 001002 BNE NEXPAS 3¥ 

185 002074 000137 012746 JMP NXDEV1 ADVANCE BASE DRV11-J ADDRESS 
186 002100 012700 001342 NEXPAS: MOV #DRCSA,RO “SET UP REGISTER ADDRESS POINTERS 
187 002104 010120 NEXPA1: MOV R1, (ROS+ ‘LOAD EM,R1 = DRV11-J CSRA ADDRESS 
188 002106 062701 000002 ADD #2,R1 DO POINTERS FOR ALL REGS, A THRU D 
189 002112 022700 001362 CMP #DRDBD+2,R0 ZALL DONE ? 

190 002116 001372 BNE NEXPA1 F NOT 

191 002120 012706 001100 MOV #STACK,SP SALWAYS RESET STACK 

192 0°2124 012705 001126 MOV #SBDDAT_RS SINIT RS WITH $BDDA 

193 002130 013737 001202 001200 MOV SUNIT,SDEVCT | :LOAD APT COUNTER OITH UNIT NO. 
194 002136 106427 000340 MIPS = #PR7 ‘SET PRIORITY TO 7 

139 

198 FRRAAAREAERAEEEREREREEEEEREREEAAEREREEREREEERERRERRERRAEEERRERERE 
(3) ATEST 1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 

(3) FRR REREREEREREERERERERERE AREER EREREEREEERARRERERRRERREE 
(2) 002142 000004 i811: SCOPE 

199 002144 005037 001124 CLR SGDDAT ZNO DATA COMPARE 

200 002150 005015 CLR R ‘NO DATA COMPARE 

201 002152 012737 002206 000604 MOV #2$,aMERRVEC  :SET UP TIMEOUT RETURN ADDRS 
202 002160 013700 001342 MOV DRCSA,RO ‘SET UP 1ST DRV11 BUS ADRS 

203 002164 012701 000010 MOV #8. .R ‘SET UP REG COUNT 

204 002170 010037 001122 1$: MOV RO. $BDADR ‘SET UP CURRENT DRV BUS ADRS 
205 002174 005010 CLR (RO) ‘SEE IF THERE 
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CVDRCB DRV11J DIAG TST PRT1.  MACY11 306(1063)__10- 
CVDRCB.P11 10-AUG-81 10:51 T1 TEST THAT ALL REGISTERS ARE ADDRESSABLE SEQ 0021 
206 002176 005720 TST (RO) + :BUMP TO NEXT 
207 002200 005301 DEC R1 ‘COUNT 8 OF THEM 
208 002202 001403 BEQ 3$ ‘BR IF ALL DONE 
209 002204 000771 BR 1$ STRY NEXT 
210 002206 022626 2$: CMP (SP)+,(SP)+ ‘FIX STACK SINCE NO RTI 
211 002210 104001 ERROR 1 “BUS ADRS INDICATED DID NOT RESPOND 
ei2 002212 012737 000006 000004 3S: MOV WERRVEC+2,@MERRVEC RESTORE LOC 4 
214 FARRAR AAR ERR RAR ERE RAE RRERERERRRRRARRRERERRERERRERERRERR EE 
(3) SeTEST 2 TEST CSRA W/R DIR BIT,INT. CHIP RESET STATUS 
(3) 22 RRR EEE REREEEREREERERERREEEEEEEREKEKERERAEERERERKEEE 
(2) 002220 000004 TST2: SCOPE 
215 002222 013700 001342 MOV DRCSA,RO sGET CSR ADDRESS 
216 002226 073701 001352 MOV DRCSC,R1 [STORE CSRC ADDRESS 
217 002232 Gv5010 CLR (RO) zs INIT CSRA 
218 002234 005011 CLR (R1) ‘INIT CSRC 
219 002236 010037 001122 MOV RO, $BDADR *STORE CSR ADDRESS 
220 “SET UP EXPECTED DATA 
221 002242 012737 100700 001124 MOV ARDY !DIR!BIT7!BIT6, $GDDAT 
22 002250 112760 000001 000001 MOVB  #BITO,1(RO) sSET DIRECTION BIT 
223 002256 011015 MOV 0), (R5) *GET CSR DATA 
224 002260 042715 000007 BIC 2 [CLEAR UNDEFINED BITS 
225 002264 023715 001124 CMP $GDDAT, (RS) 
226 002270 001401 BEQ 100$ 
227 002272 104002 ERROR 2 CSRA ERROR 
228 002274 010137 001122 100$: MOV R1,SBDADR [STORE CSRC ADDRESS 
229 002300 012737 000200 001124 MOV WBIT7,$GDDAT  ;STORE EXPECTED 
230 002306 011115 MOV (R1),(R5) ‘STORE CSRC 
231 002310 042715 000007 BIC #7, (R5) [CLEAR UNDEFINED BITS 
232 002314 023715 001124 CMP S$GDDAT, (R5) 
233 002320 001401 BEQ 1$ 
34 002322 104002 ERROR 2 zCSRC ERROR 
235 002324 010037 001122 1$: MOV RO, SBDADR *CSRA ADDRESS 
236 002330 012737 100300 001124 MOV #PDY'BIT7!BIT6,$GDDAT 
237 002336 105060 000001 CLRB =s-:‘1R sCLEAR CSRA DIR BIT 
238 002342 011015 MOV (RO), (R5) SREAD CSR 
239 002344 042715 000007 BIC #7, (R *CLEAR UNDEFINED BITS 
240 002350 023715 001124 CMP $GDDAT, (R5) 
241 002354 001401 BEQ 2$ ::BR IF EQUAL 
242 002356 104002 ERROR 2 
243 002360 012737 000300 001124 2$: PiUV #51T7!8116,$GDDAT 
244 002366 112761 000001 000001 MOVB #BITO,1‘R15 sCSRC TO OUTPUT MODE 
245 002374 011015 MOV (RO), (R5) *READ CSRA 
246 002376 042715 000007 BIC #7, (R5) SCLEAR UNDEFINED BITS 
247 002402 023715 001124 CMP $GDDAT, (RS) *CHECK IF RDY BIT CLEARED 
248 002406 001401 BEQ TST3 3 ;BR IF EQUAL 
249 002410 104002 ERROR 2 'CSRA REG ERROR 
251 FERRARA ARERR ARERR RERERERERRERERAEARER ARERR EERE RARERERERERERREEE 
(3) T*TEST 3 TEST CSRA INT. ENABLE BIT 
(3) 5 RREEERRAEERER AREER EEEE AERA RARER ERE RARER RRAERREREARRERRRRRER ED 
(2) 002412 000004 TST3: SCOPE 
252 002414 004737 013124 JSR PC,CLRCSR :CLEAR CSR REGISTER 
253 902420 013700 001342 MOV DRCSA,RO SGET CSRA ADDRESS 
254 002424 013701 001352 MOV DRCSC,R1 SGET CSRC ADDRESS 
255 002430 112761 000001 000001 MOVB #BITO,1(R1) *SET DIRECTION BIT CSRC 
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5 
00112 
00130 
00100 


000007 
001124 


2 
0 
0 


000300 
000001 


000007 
001124 


013124 
001342 
001122 
101700 
000003 


000007 
001124 


100300 


000007 
001124 
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001124 


001124 


001124 
000001 


001124 


001124 
000001 


1$: 
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TEST CSRA INT. ENABLE BIT 


MOV RO, $BDADR “STORE CSRA ADDRESS 

MOV #BIT9'BIT7!B1T6,$GDDAT 

MOV R 3SET INTERRUPT ENABLE BIT 
MOV (ROS, (R5) 

BIC #7, (R5) sCLEAR UNDEFINED BITS 
CM SGHDAT, (RS) 

ERROR 2 : INT. ENABLE ERROR,CSRA 
MOV #BIT7!B1T6,$GDDAT 

CLRB 1 :CLEAR I/E BIT 

MOV (RO), (R5) 

BIC #7, (R5) sCLEAR UNDEFINED BITS 
CMP $GDDAT, (RS) 

BEQ TST4 ::BR IF EQUAL 

ERROR 2 'CSRA ERROR 


FERRARA REREERRREREEEREERE EERE RERERERRERREEREREREEERERERRERERER 


s*TEST 4 


TEST CSRA 1/E,DIR BIT 


SERRE REREREREREREEREEREREEERREAREREREEERREEREREERERERRRERERER 


TST4: 


1$: 


SCOPE 
JSR PC,CLRCSR sCLEAR CSR REGISTERS 
MOV DRCSA,RO [GET CSRA ADDRESS 
MOV RO, SBDADR *SAVE CSRA ADDRESS 
MOV #101700,$GDDAT EXPECTED I/E,DIR 
MOVB #BIT1!BIT0O,1(RO) 

:SET I/E AND DIR BIT 
MOV (RO), (RS) 
BIC #7,(R5 sCLEAR UNDEFINED BITS 
CMP $GDDAT, (R5) 
BEQ 1$ 
ERROR 2 :CSRA ERROR 
MOV ARDY !BIT7!B1T6,$GDDAT 
CLR RO) 
MOV (RO) , (RS) 
BIC #7, (R5 :CLEAR UNDEFINED BITS 
CMP S$GDDAT, (R5) 
BEQ TSTS ::BR IF EQUAL 
ERROR [CSRA ERROR 


ZEAE EERAREREEREREREREREEREEEEEEERERERRERERERREREEEEE 


s*TEST 5 TEST CSR8 W/R DIR BIT, INT CHIP RESET STATUS 
TIT itiiiiiititiiiiiiiiiiiiiitiiti iii iii rt irre rT 
TST5: SCOPE 

JSR PC,CLRCSR CLEAR CSR REGISTERS 

MOV DRCSB,RO GET CSR ADDRESS 

MOV DRCSD,R1 :GET CSRD ADDRESS 

MOV RO,SBDADR : CSR_ ADDRES 

MOV #RDY'DIR,SGDDAT ;SET UP EXPECTED DATA 

MOVB #81T0,1(RO) SET DIRECTION BIT 

MOV (RO), (R5) GET CSRB DATA 

CMP $GDDAT, (R5) 

BEQ 100$ 

ERROR ? 3CSRB_ERROR 
100$: MOV Ri. SBDADR STORE CSRD ADDRESS 

CLR SGDDAT STORE EXPECTED 


SEQ 0022 
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306(1063) 3 

T5 TEST CSRB W/R DIR BIT, "NT CHIP RESET STATUS 
MOV (R71), (R5) :READ CSRD 
CMP SGDDAT, (RS) 
BEQ 1$ 
ERROR 2 :CSRD ERROR 

1$: MOV RO, $BDADR ‘STORE CSRB ADDRESS 
MOV ARDY ,SGDDAT sSTORE EXPECTED 
CLRB —s- 1(ROS SCLEAR CSR DIR BIT 
MOV (RO), (RS) SREAD CSR 
CMP SGDDAT, (R5) 
EQ 2$ ::;BR IF EQUAL 
ERROR 

2s: CLR $GDDAT :STORE EXPECTED 
MOVB  #BITO,1(R1) ‘CSRD TO OUTPUT MODE 
MOV (RO), (R5) sREAD CS 
CMP SGDDAT, (R5) *RDY BIT CLEARED 
BEQ TST6 :; U 
ERROR :CSRB REG ERROR 

FERRARA RRRERERERRERREREEE RARER ERRREREREEEEREAERERRRERREREREEEEREE 

T*TEST 6 TEST CSRC W/R DIR BIT, INT CHIP RESET STATUS 

SL RRRRRERERREEREREREEEEEREREREREREREREREREEEEEERERERREREREREREREE 

TST6: SCOPE 
JSR PC,CLRCSR sCLEAR CSR REGISTERS 
MOV DRCSC,RO “GET CSR ADDRESS 
MOV DRCSA,R1 [GET CSRA ADDRESS 
MOV RO, SBDADR *STORE CSR ADDRESS 
MOV #RDY'!DIR'BIT7,$GDDAT 
MOVB 1T0,1(RO) sSET DIRECTION BIT 
MOV (RO), (R5) :GET CS 
BIC #7, (R5 *CLEAR UNDEFINED BITS 
CMP S$GDDAT, (RS) 
BEQ 100$ 
ERROR 

100$: MOV R1,$BDADR sSTORE CSR ADDRESS 
MOV #B1T7!B116,$GDDAT 
MOV (R1),(R5) :READ CSRA 
BIC #7, (R5) *CLEAR UNDEFINED BITS 
CMP $GDDAT, (RS) 
BEQ 1$ :CHECK CSRA 
ERROR 2 :¢ RROR 

i$: MOV RO, $BDADR ‘STORE CSR ADDRESS 
MOV #RDY'BIT7, $GDDAT: STORE EXPECTED DATA 
CLRB R SCLEAR CSR DIR BIT 
MOV (RO), (R5) TREAD CSR 
BIC f *CLEAR UNDEFINED BITS 
CMP SGDDAT, (RS) 
BEQ 2$ ::BR IF EQUAL 
ERROR 2 

2s: MOV MBIT7,$GDDAT — ; EXPECTED DATA 
MOVB #BITO,1(R1) 
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sCSRA TO OUTPUT MODE 
;REA 


mov — (RO), (RS) READ CSRC_ 

BIC —- #7, (RS) CLEAR UNDEFINED SITS 
CMP -« $GDDAT.(RS) = :RDY BIT CLEARED 

BEQ  —«*TST7 3 EQUAL 

ERROR :CSRC REG ERROR 


SEQ 0023 
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306(1063) 4 
17 TEST CSRD W/R DIR BIT, INT CHIP RESET STATUS SEQ 0024 
FERRARA RRR ERRRRERERERERRARERRREREREERERERERRERERRRRRRRERRE 
SeTEST 7 TEST CSRD W/R DIR BIT,INT CHIP RESET STATUS 
5 SERRE RAERRRERE EEE EEEEEEEEEREREEEREERERERERERRRRERERRERE ARES 
TST7: SCOPE 
JSR PC,CLRCSR :CLEAR CSR REGISTERS 
MOV DRCSD,RO ‘GET CSR ADDRESS 
MOV DRCSB,R1 SCSRB ADDRESS 
MOV RO, SBDADR *STORE CSR ADDRESS 
MOV #RDY'DIR,$GDDAT :SET UP EXPECTED DATA 
MOVB #BIT0,1(RO) *SET DIRECTION BIT 
MOV (RO), (R5) [GET CSR DATA 
CMP $CDDAT, (RS) 
BEQ 100$ 
ERROR 2 
100$: MOV R1,$BDADR sSTORE CSRB ADDRESS 
CLR $GDDAT ‘STORE EXPECTED 
MOV (R1),(R5) 
CMP $GDDAT, (R5) 
BEQ 1$ 
ERROR :CSRB ERROR 
1$: MOV RO, $BDADR [STORE CSRD ADDRESS 
MOV ARDY, $GDDAT SSTORE EXPECTED 
CLRB —s- 1ROS ‘CLEAR CSR DIR BIT 
MOV (RO) ,(R5) TREAD CSR 
CMP $GDDAT, (R5) 
BEQ 2$ ::BR IF EQUAL 
ERROR 
2$: CLR $GDDAT yEXPECTED 
MOVB  #BITO,1(R1) SCSRD TO OUTPUT MODE 
MOV _— (RO), (R REA 
CMP S$GDDAT, (R5) *RDY BIT CLEARED : 
BEQ ‘TST10 *:BR IF EQUAL 
ERROR :CSRD REG ERROR 
JE RRRARERARRRRREREREREREEEEREEERARREREREEREEKRREERERERRERRERREREEE 
S*TEST 10 TEST DBRA W/R IN OUTPUT MODE 
SRR RAEREREERERRERERREREEERERERERREREREREEREREEREREREREREREEEE 
TST10: SCOPE 
JSR PC,CLRCSR sCLEAR ALL CSRS 
MOV #BEGPAT,R3 :GET DATA PATTERN TABLE 
MOV #1$,$LPERR ‘SET UP SCOPE ADDRESS 
MOV DRCSA,RO [GET CSRA 
MOV DRDBA,R1 [GET DBRA ADDRESS 
MOV R1,$BDADR ‘STORE DBRA ADDRESS 
MOVB #BITO,1(RO) ‘SET CSRA IN OUTPUT MODE 
1$: MOV (R3) , $GDDAT ‘SAVE EXPECTED DATA 
CLR R [CLEAR DBRA 
BIS (R3),(R1) ‘WRITE INTO DBRA 
MOV (R1). (R5) SREAD DBRA 
CMP S$GDDAT, (RS) [CHECK W/R 
BEQ 2$ *NEXT PAT. IF EQUAL 
ERROR *DBRA W/R ERROR 
2$: TST (R3)+ SINC FOR NEXT PATTERN 
CMP R3,HENDDAT *CHECK FOR END 
BNE 1$ *DO NEXT PATTERN 


¢ 
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CVDRCB DRV11J DIAG TST PRT1 MACY11 506 (1065) 10-AUG-81 10:58 PAGE 1-15 
CVDRCB.P11 10-AUG=81 10:51 TEST DBRB W/R IN OUTPUT MODE : SEQ 0025 


409 RE teenage ge etapa gy bagi cee etna 
(3) ;STEST 11 TEST DBRB W/R IN OUTPUT MODE 
(3) REAR EEEEEEEEAEEEEEKEKAEREKEEEE 
(2) 003422 000004 $T11: SCOPE 
410 003424 004737 013124 JSR PC,CLRCSR :CLEAR ALL CSRS 
411 003430 012703 013232 MOV #BEGPAT ,R3 3GET DATA PATTERN TABLE 
412 003434 012737 003464 001110 MOV #1$,$LPERR ‘SET UP SCOPE ADDRESS 
413 003442 013700 001346 MOV DRCSB,RO T CSRB 
414 003446 013701 001350 MOV DADBB.AT GET DBRB ADDRESS 
415 003452 010137 001122 MOV R1,$BDA ‘STORE DBRB ADDRESS 
416 003456 112760 000001 000001 MOVB = #BITO RO) ‘SET CSRB IN OUTPUT MODE 
417 003464 011337 001124 1$: MOV (R3) , $GDDAT ; SAVE EXPECTED DATA 
418 003470 005011 CLR (R1) DBRB 
419 003472 051311 BIS (R3), (R1) “WRITE INTO DBRB 
420 003474 911115 MOV (R1), (R5) [READ DBRB 
421 003476 023715 001124 CMP SepDAT™ (R5) :CHECK W/R DBRB 
422 003502 001401 2$ [NEXT PAT. IF EQUAL 
423 003504 104002 ERROR 2 :DBRB W/R ERROR 
424 003506 005723 2s: TST (R3)+ s INC Ae NEXT PATTERN 
425 003510 020327 013532 CMP R3,#ENDDAT SCHECK FOR END 
36 003514 001363 BNE 1$ *DO NEXT PATTERN 
428 
429 FERRER RRERRREREREREREEEEREREREREREREREREREREREREERED SREREKEKKEKEK 
(3) TEST 12 TEST DBRC W/R IN OUTPUT MODE 
(3) RRR RERREREERERERREERERREEEREEREREEREREEEEREREREREREEE 
(2) 003516 000004 +$T12: SCOPE 
430 003520 004737 013124 JSR PC, CLRCSR :CLEAR ALL CSRS 
431 0035 012703 013232 MOV #BEGPAT,R3 GET DATA Ny ea TABLE 
432 003530 012737 003560 001110 MOV Fig SLPERR ‘SET UP SCOPE ADDRESS 
433 003536 013700 001352 MOV DRCSC,RO :GET CSRC 
003542 013701 001354 MOV DROBC RT 3GET DBRC ADDRESS 
435 003546 010137 001122 MOV R1,$BDA ORE DBRC ADDRESS 
003552 112760 000001 000001 MOVB Aalto 1 tRO) ?SET CSRC IN OUTPUT MODE 
437 0035 011337 001124 1$: MOV (R3), $GDDAT * SAVE EXPECTED DATA 
003564 005011 CLR ( [CLEAR DBRC 
439 003566 051311 BIS (R3), (R1) ‘WRITE INTO DBRC 
440 003570 011115 MOV (R1).(R5) TREAD DBRC 
441 003572 023715 001124 CMP $GDDAT, (R5) sCHECK W/R DBR 
442 003576 001401 BEQ 2$ sNEXT PAT. IF EQUAL 
443 003600 104002 ERROR 2 :DBRC W/R ERROR 
444 003602 005723 2s: TST (R3)+ SINC FOR NEXT PATTERN 
445 003604 020327 013532 CMP R3,#ENDDAT SCHECK FOR EN 
446 003610 001363 BNE 1$ *DO NEXT PATTERN 
448 
449 FREER ERERERRERERREREEERAEEREEEREREEREEERERERRERERERERRREEEEEE 
(3) TEST 13 TEST DBRD W/R IN OUTPUT MODE 
(3) SRRERERERERERERERRRRERERERERERRERERERREEEEERERRERERERREKREREREEERE 
(2) 003612 000004 18113: SCOPE 
450 003614 004737 013124 JSR PC,CLRCSR :CLEAR ALL CSRS 
451 003620 012703 013232 HOV #BEGPATR3 SGET DATA PATTERN TABLE 
452 003624 012737 003654 001110 MOV #1$,$LPERR 3SET UP SCOPE ADDRESS 
453 003632 013700 001356 MOV DRCSD,RO T CSRD 
454 003636 013701 001360 MOV DRDBD RT ‘GET DBRD ADDRESS 
455 003642 010137 001122 MOV 1,$BDAD *STORE DBRD ADDRESS 


N 2 
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CVORCB.P11 10=AUG= : T1 TEST DBRD W/R IN OUTPUT MODE SEQ 0026 


000001 #81T0,1(RO) SET CSRD_IN OUTPUT MODE 
18: MO (R3) , SGDDAT sSAVE EXPECTED DATA 
(R1) : DBRD 
(R3),(R1) sWRITE INTO DBRD 
(R1),(R5) ;READ DBRD 
a 


: Ww 0 
: (R3)+ 2 INC FOR NEXT PATTERN 
013532 * Salctaraed :CHECK FOR END 


D0 NEXT PATTERN 
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© RRR EERE EEEEREREEERAEEEEREEREREREKEEEERERKEREREREEE 


TEST CSR UNIQUENESS,CSRS (A-B),(C-D) 


© RARER EEE REE REE REE REAEKEERKEEEEEEEEEERREEEEREEEEREE 


T3714: SCOPE 
JSR 


PC, CLRCSR ZCLEAR ALL CSRS 
:CSRA = RO 
*CSRC = R2 
:CSRD = R3 
#3,1(RO) :CSRA OUTPUT MODE,1/E 
#BIT0,1(R3) :CSRD OUTPUT MODE 
RO, $BDADR 
#101700,$GDDAT ;EXPECTED DATA 
(RO), (RS) 
#7, (R5) :CLEAR UNDEFINED BITS 
SGDDAT, (RS) 
2 ZCSRA ERROR 
R1_.SBDADR [CHECK CSRB 
(R1), (R5) 
SQDDAT. (RS) 
:CSRB ERROR 
R3,SBDADR 
#190400, $GDDA1 
3), (R5) 
$GDDAT, (R5) 
3$ 


2 CSRD ERROR 
R2,.BDADR CHECK CSRC 
#BIT7,$GDDAT EXPECTED 
(R2), 75) 


#7,(R5) 
SGDDAT, (R5) 
TST15 3;BR_ IF EQUAL 
zCSRC ERROR 


FERRARA ERA RRERERERERRERERERARREEEERERERRERRERERERERRERER EE 


TEST CSR UNIQUENESS,CSRS (A-D),(C-B) 


© REET ERR EREEEEEEEREREREEKEEKEEREEREEREREREEEERREKREKEK 


TST15: SCOPE 
JSR 


PC,CLRCSR 3CLR ALL SIRS 


'CSRA = RO 
*CSRB = R1 
sCSRC = os 
sCSRD = R 
#3,1(RO) *CSRA OUTPUT,1/E 
#B1T0,1(R1) *CSRB OUTPUT MODE 
RO, $BDADR *CSRA ADDRESS 
#101700, $GDDAT 
(RO), (R5) 
7, (R5) :CLEAR UNDEFINED BITS 


#7,( 
SGDDAT , (R5) 
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VDRCB DRV11J_D/AG TST PRT 
€ : TEST CSR UNIQUENESS,CSRS (A-D),(C-B) SEQ 0028 


1 
CVDRCB.P11 10-4UG=81 10:51 


518 004124 001400 BEQ 

519 004126 010137 001122 1$: MOV R1,$BDADR :CHECK CSRB 

520 004132 012737 100400 001124 MOV #100400, $GDDAT 

521 004140 011115 MOV 1), (R5) 

522 004142 023715 001124 CMP $GDDAT, (RS) 

523 004146 001401 BEQ $ 

524 004150 104002 ERROR :CSRB ERROR 

525 004152 010237 001122 2$: MOV R2,$BDADR *CHECK CSRC 

526 004156 012737 000200 001124 MOV #B1T7,$GDDAT 

527 004164 011215 MOV (R2), (KS) 

528 904166 042715 000007 BIC #7, (R5) 

529 004172 023715 001124 CMP $GDDAT, (RS) 

530 004176 001401 BEQ 3$ 

531 004200 104002 ERROR 2 :CSRC ERROR 

532 004202 010337 001122 3$: MOV R3,$BDADR 

533 004206 005037 001124 CLR $GDDAT 

534 004212 011315 MOV (R3),(R5) 

535 004214 023713 001124 CMP $GDDAT, (R5) 

536 004220 001401 BEQ TST16 :;BR IF EQUAL 

537 004222 104002 ERROR 2 ?CSRD ERROR 

539 

540 FERRARA EERE REE EEEEERRREEREREREREREEEREREERERERRERRRER EE 
(3) TeTEST 16 TEST PORT A TO PORT C INTERACTION 

(3) 5 RARER EREREREEEREREREREERERERERERAERRERREREREERERREREERS 
(2) 004224 000004 TST16: SCOPE 

541 004226 004737 013124 JSR PC,CLRCSR :CLEAR ALL CSRS 

542 004232 012703 013232 MOV #BEGPAT ,R3 ‘GET DATA PATTERN TABLE 
543 004236 012737 004266 001110 MOV #1$,$LPERR 7SET UP SCOPE ADDRESS 

544 004244 013700 001342 MOV DRCSA,RO [GET PORT A, CSRA ADDRESS 
545 904250 013701 001352 MOV DRCSC.R1 [GET PORT C. CSRC ADDRESS 
546 004254 013702 001346 MOV DRCSB,R2 [CSRB ADDRESS 
547 004260 112762 000001 000001 MOVB #BITO,1(R2) *CSRB IN OUTPUT MODE 
548 004266 010037 001122 1$: MOV RO, $BDADR ‘STORE CSRA ADDRESS 

549 004272 005062 000002 CLR 2(R2) :CLEAR DBRB 

550 004276 105061 000001 CLRB (R1) [PORT C,CSRC,INPUT MODE 
551 004302 112760 000001 000001 MOVB  #BITO,1(RO) [SET CSRA IN OUTPUT MODE 
552 004310 011360 000002 MOV (R3) ,2(RO) [WRITE INTO DBRA 

553 004314 016104 000002 MOV 2(R15 RG : DBRC 

554 004320 012737 100700 001124 MOV #RDY!DIR!BIT7!BIT6,SGDDAT _ 

555 sCSRA DIR SHOULD STAY SET 
556 004326 011015 MOV (RO), (RS) TREAD CS 

557 004330 042715 000007 BIC #7, (R5) ?CLEAR UNDEFINED BITS 

558 004334 023715 001124 CMP $GDDAT, (RS) 

559 004340 001401 BEQ 100$ 

560 004342 104002 ERROR 2 ZCSRA ERROR 

561 004344 012737 000200 001124 100$: MOV #B1T7,$GDDAT 

562 004352 010137 001122 MOV R1,$BDADR :CSRC ADDRESS 

563 004356 011115 MOV (R14), (R5) REA 

564 004360 042715 000007 BIC #7, (RS) *CLEAR UNDEFINED BITS 

565 004364 023715 O0TI2s CMP SGHDAT. (RS) 

566 004370 001401 BEQ 101$ 

567 004372 104002 ERROR 2 :CSRC ERROR 

568 004374 013737 001354 001122 101$: MOV DRDBC,$BDADR  :STORE DBRC ADDRESS 

569 004402 011337 001124 MOV (R3) , $GDDAT *SAVE EXPECTED 

570 004406 010415 MOV R4, (R5) :DBRC CONTENTS 





dD 3 
AUG-81 10:58 PAGE 2-2 


CVDRCB DRV11U DIAG TST PRT1  MACY11 30G6(1063)__10- P 
CVDRCB.P11 + 10=AUG-81 10:51 T16 TEST PORT A TO PORT C INTERACTION SEQ 0029 

571 004410 023715 001124 CMP SGDDAT, (R5) sCHECK PORT C,DBRC 

572 004414 001401 BEQ 2$ tBEQ TO NEXT SUBTEST 

573 004416 194002 ERROR 2 ‘DBRC RE R 

37 004420 005137 001124 2$: COM $GDDAT SET UP TO WRITE COM DATA FROM 
576 904424 013737 001344 001122 MoV DRDBA,$BDADR § :STORE DBRA ADDRESS 

577 004432 013761 001124 000002 38: MOV SGDDAT,2(R1) | :WRITE PORT C, INPUT MODE 

578 004440 105060 000001 CLRB —s«-.1RO) “MAKE PORT A INPUT MODE 

579 004444 112761 000001 000001 MOVB  #B1TO,1(R1) SMAKE PORT C OUTPUT MODE 

580 004452 016015 000002 MOV 2(RO), (RS) [READ PORT A,DBRA 

581 004456 023715 001124 CMP SGDDAT, (R5) [PORT A =PORT C? 

582 004462 001401 BEQ 4$ SCHECK DBRB FOR NO DATA CHANGE 
583 004464 104002 ERROR 2 SPORT A,DBRA REG ERROR 

584 004466 013737 001350 001122 4$: MOV DRDBB,$BDADR § :STORE DBRB ESS 

585 004474 005037 001124 CLR GDDAT SCONTENTS SHOULD STAY ZERO 

586 004500 016215 000002 MOV 2(R2), (RS) [READ DBRB FOR CLEAR 

587 004504 023715 001124 CMP S$GDDAT, (R5) *CHECK FOR DBRB CLEAR 

588 004510 001401 BEQ 5$ YES, CONTINUE 

589 004512 104002 ERROR 2 *DBRB INTERACTION ERROR 

590 004514 005723 5$: TST (R3)+ SINC FOR NEXT PATTERN 

591 004516 020327 013532 CMP R3,#ENDDAT “CHECK FOR END 

592 004522 001261 BNE 1$ *DO NEXT PATTERN 
594 
595 FERRARA AREER EERE EERE REREREREREEREREREREREREREREREREREREERERS 
(3) SeTEST 17 TEST PORT B TO PORT D INTERACTION 

(3) FERRARA EERE REREREREREREERERERRRERRRERERERERERERERERERERERE 
(2) 004524 000004 TST17: SCOPE 

596 004526 004737 013124 JSR PC,CLRCSR ZCLEAR ALL CSRS 

597 004532 012703 013232 MOV #BEGPAT ,R3 [GET DATA PATTERN TABLE 

598 004536 012737 004566 001110 MOV #15, $LPERR SSET UP SCOPE ADDRESS 

599 004544 013700 001346 MOV DRCSB,RO :GET PORT B, CSRB ADDRESS 
600 004550 013701 001356 MOV DRCSD.R1 SGET PORT D. CSRD ADDRESS 
601 004554 013702 001342 MOV DRCSA.R2 *STORE CSRA ADD 
602 004560 112762 000001 000001 MOVB  #BITO,1(R2) [CSRA IN OUTPUT MODE 
603 004566 010037 001122 1$: MOV RO, $BDADR “STORE CSRB ADDRESS 
604 004572 005062 000002 CLR 2(R2) SCLEAR DBRA 
605 004576 105061 090001 CLRB —s-_1(R1) “PORT D,CSRD,INPUT MODE 

606 004602 112760 000001 000001 MOVB #BITO,1(RO) ‘SET CSRB IN OUTPUT MODE 
607 004610 011360 000002 MOV —- (R3) ,2(RO) WRITE INTO DBRB 
608 004614 016104 000002 MOV 2(R15 RG [DBRD CONTENTS 
609 004620 012737 100400 001124 MOV ARDY'!DIR, SGDDAT :SAVE EXPECTED 
610 004626 011015 MOV (RO), (RSS sREAD CSRB 
611 004630 023715 001124 CMP SGDDAT, (RS) 
612 004634 001401 BEQ 100$ 
613 004636 104002 ERROR 2 :CSRB ERROR 
614 004640 005037 001124 100$: CLR $GDDAT SSAVE EXPECTED 
615 004644 010137 001122 MOV R1,$BDADR *SAVE CSRD ADDRESS 
616 004650 011115 MOV (Ri), (R5) 
617 004652 023715 001124 CMP S$GDDAT, (RS) 
618 004656 001401 BEQ 101$ 
619 004660 104002 ERROR 2 :CSRD ERROR 
620 004662 013737 001360 001122 101$: MOV DRDBD,$BDADR SAVE DBRD ADDRESS 
1 004670 011337 01124 MOV (R3) ,$GDDAT SSAVE EXPECTED 
622 004674 010415 MOV R4,(R5) *DBRD CONTENTS 
23 004676 023715 001124 CMP SGDDAT, (R5) *CHECK PORT D,DBRD 
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CVDRCB.P11 10-AUG-81 10:51 117 TEST PORT B TO PORT D INTERACTION SEQ 0030 
624 004702 001401 BEQ 2$ :BEQ TO NEXT SUBTEST 
625 004704 104002 ERROR 2 ;DBRD REG E 
626 004706 005137 001124 2$: COM $GDDAT “SET UP TO WRITE COM DATA FROM 
627 :PORT D TO PORT B 
628 004712 013737 001350 001122 MOV DRDBA, $BDADR TORE DBRB ADDRESS 
629 004720 013761 001124 000002 3S: MOV SGDDAT,2(R1) ‘ORITE PORT > INPUT MODE 
630 004726 105060 000001 CLRB —s- 1(RO) [MAKE PORT 8 INPUT MODE 
631 004732 112761 000001 000001 MOVB #B1T0,1(R1) [MAKE PORT D OUTPUT MODE 
632 004740 016015 000002 MOV 2(RO) .(R5) [READ PORT B,DBRB 
633 004744 023715 001124 CMP SGDDAT, (R5) SPORT B =PORT D? 
634 004750 001401 E 4$ SCHECK DBRA FOR NO DATA CHANGE 
635 004752 104002 ERROR 2 :PORT B,DBRB REG ERROR 
636 004754 013737 001344 001122 4$: MOV DRDBA,$BDADR  :STORE BBRA ADDRESS 
637 004762 005037 001124 CLR SGDDAT [CONTENTS = 
638 004765 216215 000002 MOV 2(R2), (R5) *READ DBRA FOR CLEAR 
639 004772 023715 001124 CMP SGDDAT, (R5) ‘DBRA CLEAR? 
640 004776 001401 BEQ 5$ YES, CONTINUE 
641 005000 104002 ERROR 2 SDBRA INTERACTION ERROR 
642 005002 005723 5$: TST (R3)+ ZINC FOR NEXT PATTERN 
643 005004 020327 013532 CMP R3,HENDDAT SCHECK FOR END 
G44 005010 001266 BNE 1$ :DO NEXT PATTERN 
646 
647 FRRRRAREEREEERERREREEREERERERERAEREREEEEREEREERERRERREREREREERERE 
(3) TEST 20 TEST PORT C TO PORT A INTERACTION 
(3) {REAR EEEEREREREREREREREERREREREREEEERERRREEREERRRRREEEE 
(2) 005012 000004 78120: SCOPE 
648 005014 004737 013124 JSR PC,CLRCSR ZCLEAR ALL CSRS 
005020 012703 013232 MOV #BEGPAT R3 ‘GET DATA PATTERN TABLE 
650 005024 012737 005054 001110 MOV #1$,$LPERR ‘SET UP SCOPE ADDRESS 
651 005032 013700 001352 MOV DRCSC,RO :GET PORT C, CSRC ADDRESS 
652 005036 013701 001342 MOV DRCSA.R1 SGET PORT A, CSRA ADDRESS 
653 005042 013702 001356 MOV DRCSD.R2 SSTORE CSRD ADDRESS 
654 005046 112762 000001 000001 MOVB «« #BITO. 1¢R2) :CSRD IN OUTPUT MODE 
655 005054 010037 001122 1$: MOV RO, $BDADR ‘STORE CSRC ADDRESS 
656 005060 005062 000002 CLR e(Re) ;CLEAR DBRD 
657 005064 105061 000001 CLRB  =s-:'1(R ‘PORT A,CSRA, INPUT MODE 
658 005070 112760 000001 000001 MOVB yeiro 1¢RO) ‘SET CSRC IN OUTPUT MODE 
659 005076 011360 000002 MOV (R3),2(RO ‘WRITE INTO DBRC 
660 005102 016104 000002 MOV sR R1 a *RE 
661 005106 012737 100600 001124 MOV ARDY !DIR!BIT7,SGDDAT 
662 sCSRC DIR SHOULD BE SET 
663 005114 011015 MOV (RO) , (RS) TREAD CSRC 
664 005116 042715 000007 BIC #7, (R5) :CLEAR UNDEFINED BITS 
665 005122 023715 001124 CMP SGHDAT, (R5) 
666 005126 001401 BEQ 
667 005130 104002 ERROR i. >CSRC ERROR 
668 005132 012737 000300 001124 100$: MOV #B1T7:B1T6, SGDDAT 
669 005140 010137 001122 MOV R1,$BDAD :CSRA ADDRESS 
670 005144 011115 MOV (Ri) ens) A 
671 005146 042715 000007 BIC #7, (R5) :CLEAR UNDEFINED BITS 
672 0.152 023715 001124 CMP SGHDAT, (RS) 
673 005156 001401 BEQ 101$ 
674 005160 104002 ERROR :CSRA ERROR 
675 005162 013737 001344 001122 101$: MOV DRDBA,$BDADR § :STORE DBRA ADDRESS 
676 005170 011337 001124 MOV (R3) , $GDDAT SSAVE EXPECTED 
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001122 
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000001 
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001110 


000001 
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001124 


001122 


-4 


TEST PORT C TO PORT A INTERACTION 


3DBRA CONTENTS 
CHECK PORT A,DBRA 
eee TO yl SUBTEST 


REG ERROR 
3SET_UP TO WRITE COM DATA FROM 
; TO PORT C 
sSTORE DBRC ADDRESS 


ORT A? 
DBRD FOR NO DATA CHANGE 
G ERROR 


;READ D 

31S DBRD CLEAR? 

7 YES, CONTINU 

3;DBRD_ INTERACTION ERROR 
INC FOR NEXT PATTERN 
CHECK FOR END 

DO NEXT PATTERN 


© RRA EEEEEEREEEEERERREREREERERREREEEEREEEEKEEEKEE 


TEST PORT D TO PORT B INTERACTION 


FERRARA AERA REREREEREEEEEAREEREREREREERERREREREERERREREERRERE 


MOV R4, (RS) 
CMP SGDDAT, (R5) 
BEQ 2$ 
ERROR 2 

2$: COM $GDDAT 
MOV DRDBC, $BDADR 

3$: MOV SGDDAT,2(R1) 
CLRB —«-:1(RO) 
MOVB #BITO,1(R1) 
MOV 2(RO) , (R5) 
CMP $GDDAT, (R5) 
BEQ 4$ 
ERROR 2 

4$: MOV DRDBD, $BDADR 
CLR f 
MOV 2(R2), (RS) 
CMP SGDDAT, (R5) 
BEQ 5$ 
ERROR 

5$: TST (R3)+ 
CMP R3,HENDDAT 
BNE 1$ 

S*TEST 21 

1ST21: SCOPE 
JSR PC,CLRCSR 
MOV #BEGPAT ,R3 
MOV #1$,SLPERR 
MOV RCSD,RO 
MOV RCSB,P1 
MOV DRCSC.R2 
MOVB #BI1TO,1(R2) 

1$: MOV RO, $BDADR 
CLR 2(R2) 
CLRB =: 1(R1) 
MOVB  #BITO,1(RO) 
MOV (R3) ,2(RO) 
MOV 2(R15 RG 
MOV ARDY !DIR, SGDDAT 
MOV (RO). (RSS 
CMP $GDDAT, (RS) 
BEQ 100$ 
ERROR 2 

100$: CLR $GDDAT 
MOV R1,$8DADR 
MOV (R71), (R5) 
CMP $GDDAT, (RS) 
BEO 101$ 
ERROR 2 

101$: MOV DRDBB, $BDADR 


MOV (R3) , $GDDAT 
R4, ( 
$GDDAT, (RS) 


CLEAR ALL CSRS 

GET DATA PATTERN TABLE 
SET UP SCOPE ADDRESS 
3GET PORT D, CSRD ADDRESS 
GET PORT B, CSRB ADDRESS 
STORE CSRC sp gy tS 


:CSRC IN OUTPUT MOD 
* STORE CSRD ADDRESS 
:PORT 8,CSRB, INPUT MODE 
*SET CSRD IN OUTPUT MODE 
sWRITE INTO DBRD 

sREAD DBRB 
‘SAVE EXPECTED 

sREAD CSRD 

:CSRD ERROR 

*SAVE EXPECTED 
‘SAVE CSRB ADDRESS 


:CSRB ERRUR 
zSAVE DBRB ADDRESS 
sSAVE EXPECTED 


:DBRB CONTENTS 
:CHECK PORT B,DBRB 


SEQ 0031 


CVDRCB DRV11J DIAG TST PRT? MACY11 306(1063) 10-AuG-81 10:58 Gace 2-5 
CVDRCB.P11. | 10-AUG=81 10:51 T21 TEST PORT D TO PORT B INTERACTION SEQ 0032 
005470 001401 BEQ 2$ :BEQ TO NEXT SUBTEST 
731 005472 10400 ERROR 2 ‘DBRB REG ERROR 
ie 005474 005137 001124 2$: COM S$GDDAT :SET UP To WRITE COM DATA FROM 
734 005500 013737 001360 001122 MOV DRDBD,$BDADR  :STORE DBRD ADDRESS 
735 005506 013761 001124 000002 3$: MOV SGDDAT,2(R1) | :WRITE PORT B, INPUT MODE 
36 005514 105060 000001 CLRB —s«-.1(RO) [MAKE PORT D INPUT MODE 
737 005520 112761 000001 000001 MOVB #BITO,1(R1) SMAKE PORT B OUTPUT MODE 
38 005526 016015 000002 MOV 2(RO) .(R5) ‘READ PORT D,DBRD 
739 005532 023715 001124 CMP SGDDAT, (R5) :PORT B =PO Rt 
740 005536 001401 BEQ 4$ CHECK FOR NO DATA CHANGE 
741 005540 104002 ERROR 2 ‘PORT D,DBRD REG ERR 
742 005542 013737 001354 001122 4$: MOV DRDBC,$BDADR § :STORE OBRC ADDRESS 
743 005550 005037 001124 CLR $GDDAT TEXPECT DBRC = 0 
744 005554 016215 000002 MOV 2(R2), (RS) TREAD DBRC 
745 005560 023715 001124 CMP SGDDAT, (R5) t1S DBRC = 0 
746 005564 001401 BEQ 5$ YES, CONT INUE 
747 005566 104002 ERROR 2 “DBRC INTERACTION ERROR 
748 005570 005723 5$: TST (R3)+ sINC FOR NEXT PATTERN 
749 005572 020327 013532 CMP R3,HENDDAT SCHECK FOR END 
730 005576 001266 BNE 1$ *DO NEXT PATTERN 
752 FERRARA EREERERERERERERREERREREEREEREREERREREEERERERREEE 
(3) TEST 22 TEST GROUP 1,2 IMR, IRR.ACR WITH CHIP RESET 
(3) PTOTITTITITITIITITITiTiLiLitiTiTii tLe Lt ttc 
(2) 005600 000004 18122: SCOPE 
753 005602 004737 013124 JSR PC,CLRCSR :CLEAR ALL CSRS 
754 005606 012702 0060002 MOV #2,R2 ‘TWO GROUPS TO TEST 
755 005612 013700 001342 MOV DRCSA,RO * STORE CSRA 
756 005616 013701 001346 MOV DRCSB,R1 SSTORE CSRB 
757 005622 004737 013174 JSR PC, CLRIRR SCLEAR IRR REGISTERS 
758 005626 010137 001122 111$: MOV R1. $BDADR [STORE ADDRES 
759 005632 012737 000377 001124 MOV #377, $GDDAT + STORE yEXPECTED DATA 
760 005640 112710 000244 MOVB = #MIMR, (RO) “LOAD MODE BITS FOR IMR 
761 005644 111115 MOVB _(R1), (R5) TREAD IMR REGISTER 
762 005646 023715 001124 CMP $GDDAT, (RS) 
763 005652 001401 BEQ 1$ 
764 005654 104005 ERROR 5 ZIMR REG ERROR 
765 005656 005037 001124 1$: CLR $GDDAT ; STORE EXPECTED 
766 005662 112710 000250 MOVB #MIRR, (RO) sLOAD MODE BITS FOR IRR 
767 005 111115 MOVB (1), (R5) ‘READ IRR REGISTER 
768 005670 023715 001124 CMP $GDDAT, (R5) 
769 005674 001401 BEQ 2$ 
770 005676 104003 ERROR 3 sIRR REG ERROR 
771 005700 112710 000254 2$: MOVB #MACR, (RO) SLOAD MODE BITS FOR ACR 
772 005704 111115 MOVB _— (R1), (R5) SREAD ACR REGISTER 
773 005706 023715 001124 CMP SGDDAT, (R5) 
774 005712 001401 BEQ 3$ 
775 005714 104004 ERROR 4% sACR REG ERROR 
776 005716 005302 3$: DEC R2 SFINISHED BOTH GROUPS? 
777 005720 001405 BEQ TST23 [:BR IF EQUAL 
778 005722 013700 001352 MOV DRCSC,RO 
779 005726 013701 001356 MOV DRCSD.R1 
780 005732 000735 BR 1118 


782 J LARA RARER AAA ERA E RARE EAE REAR AEEAAREEAREER AREER RR RERERERE REE 
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001124 


001124 


23 TEST GROUPS 1 AND 2 ACR 
s*TEST 23 


- [ 
UNIQUENESS 


TEST GROUPS 1 AND 2 ACR UNIQUENESS 


© RARER EEEEEEEEEEEKEREREEEEKEEEREEERREEREREEREEKEKEKREE 


1123: SCOPE 
JSR PC,CLRCSR 
DRCSA,RO 
DRCSB.RI 
JSR P£-CLRIRR 


111$: MOV R1.$BDADR 
MOV #252, $GDDAT 
MOVB = #MACR, (RO) 
MOVB = #PACR. (RO) 
MOVB = $GDDAT, (R1) 
MOVB = (Ri), (RS) 
CMP $GDDAT, (R5) 
BEQ 1$ 
ERROR 

1$: MOVB  #MIMR, (RO) 
MOV #377, $GDDAT 
MOVB R1). 
CMP S$GDDAT, (RS) 
BEQ 2$ 
ERROR 5 

2$: MOVB #MISR, (RO) 
CLR SGDDAT 
MOVB = (R11), (RS) 
CMP SGDDAT, (RS) 
BEQ 3$ 
ERROR 6 

3$: MOVB  #MIRR, (RO) 
MOVB (R11), (R5) 
CMP $GDDAT, (RS) 
BEQ 4$ 
ERROR 

4$: CLRB ) 
MOVB = #MACR, (RO) 
MOVB (1), (R5) 
CMP $GDDAT, (R5) 
BEQ 
ERROR 

5$: DEC R3 
BEQ TST24 
MOV DRCSC,RO 
MOV DRCSD.R1 
BR 111$ 


sCLEAR ALL CSRS 

3CSRA ADDRESS 

3CSRB_ADDRESS 

COUNTER FOR TESTING TWO GROUPS 
CLEAR IRR REGS WITH CHIP RESET 
STORE ADDRESS 

sSTORE EXPECTED 


;LOAD MODE BITS FOR ACR 
3;PRESELECT ACR_FOR WRITING 
sWRITE INTO DATA PORT 


SCHECK ACR RESULTS 


TACR ERROR 
“CHANGE TO IMR REGISTER 
: STORE EXPECTED 


[SHOULD STILL BE ALL 1°S 


7 IMR REG ERROR 
LOAD MODE BITS FOR ISR 
sSTORE EXPECTED 


ISR SHOULD BE CLEARED 


zISR_ REG ERROR 
LOAD MODE BITS FOR IRR 


IRR SHOULD BE CLEARED 


zIRR_ REG ERROR 
3CHIP RESET GROUP 1 
LOAD MODE BITS FOR ACR 


‘ ACR 
sACR SHOULD BE CLEARED 


sACR_REG ERROR 
3TEST GROUPS 1 AND 2 

33BR IF BOTH GROUPS TESTED 
GROUP 2 CONTROL PORT 

GROUP 2 DATA PORT 

sTEST GROUP 2 ACR UNIQUENESS 


8 RARER EEEEREREEAEREAERARKEEEREREEEEEREREREREREEEEKEERT 


S*TEST 24 


TEST GROUPS 1 AND 2 IMR UNIQUENESS 


FLERE EEE EEEERERERERAREREKERERREAEERERERRERERREREE 


TST24: SCOPE 

32:GPA = =JSR PC,CLRCSR 
JSR PC, CLRIRR 
MOV RCSA,RO 
MOV DRCSB,R1 
MOV #e, 

111$: MOV R1,$BDADR 


;CLEAR ALL CSRS 

33_*** VDRCA1 CHANGES THIS *** 
3CSRA ADDRESS 

;CSRB_ADDRESS 

COUNTER FOR TWO GROUP TESTING 
zSTORE ADDRESS 


72GPA 


SEQ 0033 


Sen neem 





pea ek 
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CVDRCB.P11 +: 10=AUG=817 10:51 T24 T GROUPS 1 AND 2 IMR UNIQUENESS SEQ 0034 
833 006172 012737 000252 001124 MOV #252, $GDDAT ;STORE EXPECTED 
834 006200 112710 000244 MOVB  #MIMR, (RO) “LOAD MODE BITS FOR IMR 
835 006204 112710 000260 MOVB  #PIMR, (RO) < PRESELECT IMR FOR WRITING 
006210 113711 001124 MOVB  $GDDAT, (R1) SWRITE INTO DATA PORT 
837 006214 117115 MOVB (1), (R5) ?STORE DATA FOR COMPARE 
838 006216 023715 001124 CMP S$GDDAT, (RS) SCHECK IMR RESULTS 
839 006222 001401 BEQ 1$ : 
006224 104005 ERROR 5 SIMR ERROR 
841 006226 112710 000254 1$: MOVB = #MACR, (RO) ‘CHANGE TO ACR REGISTER 
842 006232 005037 001124 CLR $GDDAT ; STORE EXPECTED 
843 006236 111115 MOVB (R11), (R5) R 
844 006240 023715 001124 CMP $GDDAT, (R5) ?SHOULD STILL BE CLEARED 
845 006244 001401 BEQ 2$ 
846 006246 104004 ERROR 4 sACR REG ERROR 
847 006250 112710 000240 2$: MOVB  #MISR, (RO) ;LOAD MODE BITS FOR ISR 
848 006254 111115 MOVB _—(R1),, (R5) 
849 006256 023715 001124 CMP €SDDAT, (RS) tISR SHOULD BE CLEARED 
850 006262 001401 BEQ 3 
851 006264 104006 ERROR 6 zISR REG ERROR 
B52 006266 112710 000250 3$: MUVB = #MIRR, (RO) :LOAD MODE BITS FOR IRR 
853 006272 111115 MOVB _(R1),, (R5) READ I 
854 006274 023715 001124 CMP $GDDAT, (R5) tIRR SHOULD BE CLEARED 
855 006300 001401 BEQ 4$ 
856 006302 104003 ERROR 3 zIRR REG ERROR 
857 006304 105010 4$: CLRB —s- (RO) SCHIP RESET GROUP 1 
858 006306 112710 000244 MOVB  #MIMR, (RO) [LOAD MODE BITS FOR IMR 
859 006312 012737 000377 001124 MOV #377, $GDDAT : STORE EXPECTED 
006320 111115 MOVB = (R11). IMR 
861 006322 023715 001124 CMP $GDDAT, (R5) Tar SHOULD BE ALL ONES 
862 006326 001401 BEQ 5$ *DO NEXT GROUP 
863 006330 104005 ERROR 5 TIMR REG ERROR 
£64 006332 005303 5$: DEC R3 ‘DO GROUPS 1 AND GROUP 2 
865 006334 001405 BEQ TST25 +:BR IF BOTH GROUPS TESTED 
866 006336 013700 001352 MOV DRCSC,RC “SET UP TO TEST GROUP 2 
867 006342 013701 001356 MOV DRCSD.R1 *GROUP 2 DATA PORT 
868 006346 000707 BR 111$ *DO GROUP 2 IMR UNIQUENESS 
870 FERRARA RRERERREREREREREETREREAAEEREREERERERRERRERERRRERERERERERR 
(3) TEST 25 TEST GROUPS 1 AND 2 IRR UNIQUENESS 
(3) SERRA ERERERREREEEEEEEEREREREREEEREUREREEREERERERERERERRERERERE 
(2) 006350 000004 18125: SCOPE 
871 006352 004737 013124 JSR PC,CLRCSR ZCLEAR ALL CSRS 
872 006356 013700 001342 MOV DRCSA,RO *CSRA ADDRESS 
873 006362 013701 001346 MOV DRCSB.R1 ;CSRB_ADDRESS 
874 006 012703 0002 MOV #2,R3 *COUNTER FOR TESTING TWO GROUPS 
875 006372 004737 013174 JSR PC, CLRIRR SCLEAR IRR REGS WITH CHIP RESET 
876 006376 010137 001122 111$: MOV DADR ‘STORE ADDRESS 
877 006402 012737 000200 001124 MOV pte SCDDAT ‘STORE EXPECTED 
878 006410 112710 000250 MOVB = #MIRR, (RO) “LOAD MODE BITS FOR_IRR 
79 006414 112710 000137 MOVB #137, (RO) iSET SINGLE IRR BIT? 
006420 111715 MOVB — (R1). (R5) [STORE DATA FOR COMPAR 
881 006422 023715 001124 CMP $GDDAT, (R5) “CHECK IRR RESULTS 
882 006426 001401 BEQ 1$ ; 
883 006430 104003 ERROR 3 SIRR ERROR 
884 006432 112710 00244 1$: MUVB = WMIMR, (RO) “CHANGE TO IMR REGISTER 
B85 006436 012737 000377 001124 MOV #377, $GDDAT *STORE EXPECTED 





CVDRCB DRV11u DIAG TST PRT1. MACY11 30G(1063) 10-AUG-81 10: 53° E 2-8 
CVDRCB.P11 | 10-AUG-81 10:51 T25 TEST GROUPS 1 AND 2 TRE E UNTQUENESS SEQ 0035 
886 006444 111115 MOVB = (R1), (R5) :READ IMR 
887 006446 023715 001124 CMP $GHDAT, (RS) SSHOULD STILL BE ALL 1°S 
888 006452 001401 BEQ 2$ 
889 006454 104005 ERROR 5 ZIMR REG ERROR 
006456 112710 000240 2$: MOVB _—— #AISR, (RO) TLOAD MODE BITS FOR ISR 
891 006462 005037 001124 ‘ CLR $GDDAT SSTORE EXPECTED 
892 006466 111115 MOVB  (R1), (R5) SREAD ISR 
893 006470 023715 001124 CMP $GDDAT, (RS) tI1SR SHOULD BE CLEARED 
006474 001401 EQ 3$ 
895 006476 104006 ERROR 6 :1SR REG ERROR 
006500 112710 000254 3S: MOVB —s#MACR,, (RO) "LOAD MODE BITS FOR ACR 
897 006504 111115 MOVB (1), (R5) +R 
893 006506 023715 001124 CMP S$GDDAT, (R5) TACR SHOULD BE CLEARED 
899 006512 001401 BEQ 4$ 
900 006514 104004 ERROR 4 ZACR REG ERROR 
901 006516 105010 4$: CLRB (RO? “CHIP RESET GROUP 1 
902 006520 112710 000250 MOVB  #MIRR, (RO) ‘LOAD MODE BITS FOR IRR 
903 006524 111115 MOVB (R11), (R5) =R 
904 006526 023715 001124 CMP S$GDDAT, (RS) TIRR SHOULD BE CLEARED 
905 006532 001401 BEQ 54 
906 006534 104003 ERROR 3 sIRR REG ERROR 
907 006536 005303 5$: DEC R3 STEST GROUPS 1 AND 2 
908 006540 001405 BEQ TST26 ::BR IF BOT H_GROUPS TESTED 
909 006542 013700 001352 MOV DRCSC,RO ‘GROUP 2 CONTROL PORT 
910 006546 013701 001356 MOV DRCSD.R1 :GROUP 2 DATA PORT 
atl 006552 000711 BR 111$ *TEST GROUP 2 ACR UNIQUENESS 
913 
914 FARRAR ERERRRREREREREEREREREREEREEREREREREEREREREEREERRERER 
(3) ATEST 26 TEST GROUPS 1,2 ACR WITH PATTERNS 
(3) PTeTITettitiitiiitiittitttitititititii titi titi 
(2) 006554 000004 78126: SCOPE 
915 006556 004737 013124 JSR PC,CLRCSR :CLEAR ALL CSRS 
916 006562 012702 000002 HOV # STEST TWO GROUPS 
917 006566 012737 006614 001110 MOV #1$,SLPERR [SET UP LOOP RETURN 
918 006574 013700 001342 MOV DRCSA,RO [STORE CSRA ADDRESS 
919 006600 013701 001346 MOV DRCSB.R1 [STORE CSRB ADDRESS 
920 012703 013232 111$: MOV #BEGPAT ,R3 [SET UP PATTERN TABLE 
921 006610 010137 001122 MOV R1, $BDADR SSTORE ADDR 
922 006614 112710 000254 1$: MOVB = #MACR, (RO) SLOAD MODE BITS FOR ACR 
923 006620 112710 000300 MOVB  #PACR. (RO) *PRESELECT ACR FOR WRITING 
924 006624 111337 001124 MOVB _—- (R3) , $GDDAT SSTORE EXPECTED 
925 006630 111311 MOVB  —« (R3)..(R1) ‘WRITE INTO ACR 
926 006632 111115 MOVB _—« (R'1). (RS) SREAD OUT OF ACR 
927 006634 023715 001124 CMP SeDDAT™ (RS) 
928 006640 001401 BEQ 2$ 
929 006642 104004 ERROR 4 ZACR REGISTER ERROR 
30 006644 005723 2$: TST (R3)+ SINC FOR NEXT PATTERN 
931 006646 020327 013532 CMP R3,MENDDAT * CHECK FOR TABLE END 
932 006652 001360 BNE 1$ :W/R NEXT PATTERN 
933 006654 005302 DEC R2 *FINISHED BOTH GROUPS? 
934 006656 001405 BE TST27 +;BR IF EQUAL 
935 006660 013700 001352 MOV DRCSC,RO 
936 006664 013701 001356 MOV DRCSD.R1 
937 006670 000745 BR 111$ :DO NEXT GROUP 


3 
CVDRCB DRV11J_ DIAG TST PRT MACY11 30(1065) 10-AUG-81 10:58 * AGE 2-9 


CVDRCB.P11 10-AUG-81 10:51 127 TEST GROUPS 1,2 IMR WITH PATTERNS SEQ 0036 
939 {RRR ARERR ER EERERERE EERE REEREEEEEREERREEEEEREREREREERERERE 
(3) tS TEST 27 TEST GROUPS 1,2 IMR WITH PATTERNS 
(3) + RERERERREREREEREREEREREREREERRERERREREREERERERARRERRER EERE 
(2) 006672 000004 18127: SCOPE 
940 006674 004737 013124 JSR PC,CLRCSR :CLEAR ALL CSRS 
941 006700 012702 000002 HOV ‘TEST TWO GROUPS 
942 006704 012737 006732 001110 MOV #1$,$LPERR :SET UP LOOP RETURN 
943 006712 013700 001342 MOV DRCSA,RO SSTORE CSRA ADDRESS 
944 006716 013701 001346 MOV DRCSB,R1 ‘STORE CSRB ADDRESS 
945 006722 012703 013232 111$: MOV #BEGPAT,R3 ‘SET UP PATTERN TABLE 
946 006726 010137 001122 MOV R1,$BDADR :STORE ADDRESS 
947 006732 112710 000244 1$: MOVB - #MIMR, (RO) ‘LOAD MODE BITS FOR IMR 
948 006736 112710 000260 MOVB = #PIMR, (RO) SPRESELECT IMR FOR WRITING 

006742 111337 001124 MOVB _— (R3) , $GDDAT SSTORE EXPECTED 
950 006746 111311 MOVB _ (R3), (R1) :WRITE INTO 
951 006750 111115 MOVB (R71), (R5) ‘READ OUT OF IMR 
952 006752 023715 001124 CMP $GDDAT, (RS) 
953 006756 001401 BEQ 2$ 
954 006760 104005 ERROR 5 sIMR REGISTER ERROR 
955 006762 005723 2$: TST (R3)+ SINC FOR NEXT PATTERN 
956 006764 020327 013532 CMP R3,MENDDAT ; CHECK FOR TABLE END 
957 006770 001360 BNE 1$ W/R NEXT PATTERN 
958 006772 005302 DEC R2 ‘FINISHED BOTH GROUPS? 
959 006774 001405 BEQ TST30 +3BR IF EQUAL 
960 006776 013700 001352 MOV DRCSC,RO 
1 007002 013701 001356 MOV DRCSD.R1 
962 007006 000745 BR 111$ :D0 NEXT GROUP 
964 FARRAR RERERERERERERERERERRRRERREERERERERREERRRREERREEREREEER 
(3) - TEST 30 TEST GROUP 1,2 CLEAR IMR INSTR. 
(3) TTT eTTTITTITTITITiittititititi Lite it titi it ttt 
(2) 007010 000004 78130: SCOPE 
965 007012 004737 013124 JSR PC,CLRCSR ZCLEAR ALL CSRS 
007016 012704 000002 MOV #2,R4 S COUNTER FOR TWO GROUPS 
967 007022 013700 001342 MOV DRCSA,RO *CSRA ADDRESS 
968 007026 013701 001346 MOV DRCSB,R1 SCSRB ADDRESS 
969 007032 010137 001122 111$: MOV R1,$BDADR ‘STORE ADD ESS 
970 007036 005037 001124 CLR SGDDAT SEXPECTED DAT 
971 007042 112710 000244 MOVB  4#M.MR, (RO) sLOAD MODE BITS TO READ IMR 
972 007046 112710 000040 MOVB  #CIMR, (RO) [CLEAR IMR COMMAND 
973 007052 111115 MOVB (R11), (R5) SREAD DATA PORT 
974 007054 023715 001124 CMP SGDDAT, (R5) 
975 007060 001401 BEQ 1$ 
976 007062 104005 ERROR 5 sERROR ,IMR SHOULD BE CLEARED 
977 007064 005304 1$: DEC RG 3FINISHED BOTH GROUPS? 
978 007066 001405 _ BEQ TST31 +:BR IF BOTH GROUPS TESTED 
979 007070 013700 001352 MOV DRCSC,RO :SETUP FOR GROUP 2 
980 007074 013701 001356 MOV DRCSD.R1 
981 007100 000754 BR 111$ :D0 IMR TEST WITH GROUP 2 
983 FRAME REREEERREREEERERERERAEEREREREREREREREREREREERRRERERRERE 
(3) TEST 31 TEST GROUP 1,2 SET IMR INSTR. 
(3) ERREKEREREEREEEEAAEREEEREERERRERERAERERERRRRERER ARERR AREER EEE 
(2) 007102 900004 18131: SCOPE 
84 007104 004737 013124 JSR PC,CLRCSR :CLEAR ALL CSRS 


9 
985 007110 012704 000002 MOV #2,R4 :COUNTER FOR TWO GROUPS 
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aad prea’ RO 
1118: ead R1,$BDADR 


MOVB #SIMR, (RO) 
MOVB (R5) 
CMP SeDDAT, (RS) 


3 
3 


1$: DEC 

TST32 
MOV DRCSC,RO 
MOV DRCSD,R1 
BR 111$ 


‘3 
10:58 PAGE 2-10 
TEST GROUP 1,2 SET IMR INSTR. 


>CSRA presets 
RB_ADDRESS 
sEXPECTED DAT 
eerie Bs TO READ IMR 
3SET IMR_COMMAND 
SREAD DATA PORT 


sERROR ,IMR SHOULD BE SET 
SFINISHED BOTH GROUPS? 

::BR IF BOTH GROUPS TESTED 
:SETUP FOR GROUP 2 


;DO IMR TEST WITH GROUP 2 


{ERR REEREEEREREREREREREEEREREEREREREEEERERRERERRERERREEE 


TEST GROUP 1,2 CLEAR SINGLE IMR BIT INSTR. 


<LRRAEREREREERRRERERERERERRRRRRERERERRERRRRRRE RR RREER RRR 


ATEST 32 
78132: SCOPE 
JSR PC,CLRCSR 
HOV #2.R4 
MOV #1$,$LPERR 
MOV DRCSA,RO 
OV DRCSB,R1 


M 
1118: aed R1,$B8DAD 


MOVB we 2 ¢ 

MOV IMR ,R2 
1$: MOVB (ha). $GDDAT 

MOVB #SIMR (RO) 


R2, (RO) 
MOVB  (R1), (RS). 
CMP $cDDAT, (RS) 


> CLEAR ALL CSRS 
COUNTER 
3 SCOPE Ail, ADDRESS 
RA ADDRESS 


ORE ADDRESS 
[GOOD DATA ae ge I TABLE 
LOAD MODE BITS FOR IMR 
: Te Oe BIT VALUE 


TREAD DATA PORT 


EQ 
ERROR 5 7 IMR REG ERROR 
2$: TST (R3)+ SINC EXPECTED DATA TABLE 
a4 acai :CHECK FOR END 
INC R2 3SET UP TO CLEAR NEXT IMR BIT 
BR 1$ 3 CLEAR NEXT IMR BIT 
3$: DEC 4 0 GROUP AND 
BEQ TST33 SBR IF BOTH GROUPS TESTED 
MOV DRCSC,RO :CSRC ADDRESS 
MOV DRCSD,R1 ZCSRD_ADDRESS 
111$ D0 GROUP 2 
eee ene oO 
:RTEST 33 TEST GROUP 1,2 SET SINGLE IMR BIT INSTR 
j posetebcononsnntantenseranateanenannentenneeenenenteneennnnen 


SCOPE 
JSR PC, CLRCSR 
MOV #2-R 

MOV #1$,$LPERR 


ae ALL CSRS 
OUP COUNTER 
SCOPE RETURN ADDRESS 


SEQ 0037 









3 
T1 MACY11 spg (1065) 1 Mh ges ey « 58 MPAGE 2-11 


CVDRCB DRV11J DIAG TST P 
1 T GROYP 1,2. SEF SINGLE IMR BIT INSTR. SEQ 0038 


CVDRCB.P11 10=AUG-81 


1036 007350 013700 001342 MOV DRCSA,RO - $CSRA ADDRESS 
1037 007354 013701 001346 MOV DRCSB,R1 *CSRB ADDRESS 
1038 007360 010137 00112 111$: MOV R1, $BDADR SSTORE ADDRESS 
1039 007 12703 013334 MOV #BGCHP3,R3 *GOOD DATA PATTERN TABLE 
1040 007370 112710 000244 MOVB = #MIMR, (RO) SLOAD MODE BITS FOR I 
1041 007374 012702 000070 MOV #SSIMR,R2 tSET SINGLE IMR BIT VALUE 
1042 007400 111337 001124 1$: MOVB  (R3) ,$GDDAT SSTORE EXPECTED 
1043 007404 112710 000040 MOVB = #CIMR, (RO) 'CLEAR ALL IMR BITS 
1044 007410 110210 MOVB _—R2, (RO) ‘SET SINGLE IMR BIT 
1045 007412 111115 MOVB — (R1),, (R5) SREAD DATA PORT 
1046 007414 023715 001124 CMP ScpDAT™ (R5) 
1047 007420 001401 BEQ 2$ 
1048 007422 104005 ERROR 5 ZIMR REG ERROR 
1049 007424 005723 2$: TST (R3)+ SINC EXPECTED DATA TABLE 
1050 007426 020327 013354 CMP R3,HEDCHP3 [CHECK FOR END 
1051 007432 00140 BEQ 3$ 
1052 007434 005202 INC R2 :SET UP TO SET NEXT IMR BIT 
1053 007436 000760 BR 1$ :SET NEXT IMR BIT 
1054 007440 005304 3$: DEC RG ;D0 GROUPS 1 AND 2 
1055 007442 001405 BEO TST34 +:BR IF BOTH GROUPS TESTED 
1056 007444 013700 001352 MOV DRCSC,RO *CSRC ADDRESS 
1057 007450 013701 001356 MOV DRCSD.R1 'CSRD ADDRESS 
1058 007454 000741 BR 111$ *DO GROUP 2 
1060 FERRARA RRRERREREERERRERREREERERERRERREREREEEREERERRRR ERE 
(3) TEST 34 TEST GROUP 1,2 SET IRR INSTR. 
(3) TTITITITLILI ITIL tLiLi titi it tiie h ii 
—@) 000004 7$134: SCOPE 
1061 007460 004737 013124 JSR PC, CLRCSR ;CLEAR ALL CSRS 
1062 007464 012704 000002 MOV #2.R4 : COUNTER FOR TWO GROUPS 
1063 007470 013700 001342 MOV DRCSA,RO [CSRA ADDRESS 
1064 007474 013701 001346 MOV DRCSB,R1 :CSRB ADDRESS 
1065 007500 004737 013174 JSR PC, CLRIRR :CLEAR IRR REGS WITH CHIP RESET 
1066 007504 010137 001122 111$: MOV * $BDADR ‘STORE ADDR RESS 
1067 007510 012737 000377 001124 MOV Ah? SCDLAT SEXPECTED DAT 
1068 007516 112710 000250 MOVB = #MIRR, (RO) [LOAD MODE BITS TO READ IRR 
1069 007522 112710 000120 MOVB #SIRR. (RO) SSET IRR C 
1070 007526 111115 MOVB _—(R1), (R5) ‘READ DATA PORT 
1071 007530 023715 001124 CMP S$GDDAT, (R5) 
1072 007534 001401 BEQ 1$ 
1073 007536 104003 ERROR 3 sERROR ,IRR SHOULD BE SET 
1074 007540 005304 1$: DEC R4 3F INI SHED a H GRO 
1075 007542 001405 BEQ TST35 +;BR IF BOTH GROUPS TESTED 
1076 007544 013700 001352 MOV DRCSC,RO : SETUP FOR "easuP 2 
1077 007550 013701 001356 MOV DRCSD.R1 
1078 007554 000753 BR 111$ :D0 IRR TEST WITH GROUP 2 
1080 
1081 ar a eet oom th ae on ae 
(3) tRTEST 35 TEST GROUP 1,2 CLEAR IRR INSTR 
(3)  RERERERREREREERERRERERERERERERERERERRERERRERAREREREERERERERRERE 
(2) 007556 000004 78135: SCOPE 
1082 007560 004737 013124 JSR PC,CLRCSR ;CLEAR ALL CSRS 
1083 007564 012704 900002 HOV #2-R4 COUNTER FOR TWO GROUPS 
1084 007570 013700 00134 MOV DRCSA,RO <ESRA ADDRESS 
1085 007574 013701 001346 MOV DRCSB.R1 *CSRB ADDRESS 
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N 3 
10-AUG=-81 10:58 PAGE 2-12 
TEST GROUP 1,2 CLEAR IRR INSTR. 


JSR PC,CLRIRR ZCLEAR IRR REGS WITH CHIP RESET 
111$: MOV R1,$BDADR ‘STORE ADDRESS 

CLR $GDDAT ‘EXPECTED DATA 

MOVB  #MIRR, (RO) ‘LOAD MODE BITS TO READ IRR 

MOVB = #SIRR. (RO) [SET IRR BITS 

MOVB #CIRR. (RO) ; IRR COMMAND 

MOVB = {R1), ‘READ DATA PORT 

CMP SGDDAT, (R5) 

ERROR 3 ZERROR ,IRR SHOULD BE CLEARED 
i$: DEC RG SFINISHED BOTH GROUPS? 

BEQ TST36 :;BR IF BOTH GROUPS TESTED 

MOV DRCSC,RO :SETUP FOR GROUP 2 


MOV DRCSD,R1 
BR 111$ :D0 IRR TEST WITH GROUP 2 


SE RREKEKAEKEEKEEKEREREREREREREERERERARRKRERKEEERKEKERKEKKEKEEEREKKKEKREK 


SRTEST 36 TEST GROUP 1,2 CLEAR SINGLE IRR BIT INSTR. 
fe ARERR REREEEREEREEEEEEEEEEEERRRRRRKEEREEERREEEEREREEEEEEKEEEEEE 
15136: SCOPE 

JSR PC,CLRCSR :CLEAR ALL CSRS 

MOV R [GROUP COUNTER 

MOV #1$, SLPERR SSCOPE RETURN ADDRESS 

MOV DRCSA,RO [CSRA ADDRESS 

MOV DRCSB,R1 [CSRB ADDRESS 

JSR PC, CLRIRR [CLEAR IRR REGS WITH CHIP RESET 
111$: MOV R1. $8DADR ‘STORE ADDRESS 

MOV #BGCHPS ,R3 :GOOD DATA PATTERN TABLE 

MOVB = #MIRR, (RO) :LOAD MODE BITS FOR IRR 

MOV ACSIRR,R2 ZCLEAR SINGLE IRR BIT VALUE 
1$: MOVB = (R3) , SGDDAT [STORE EXPECTED 

MOVB = #SIRR, (RO) ZSET ALL IRR BITS 

MOVB —R2,, (RO) ZCLEAR SINGLE IRR BIT 

MOVB = (Ri), (RS) TREAD DA‘A PORT 

CMP SGDDAT, (R5) 

BEQ $ 

ERROR ZIRR REG ERROR 
2$: TST (R3)+ SINC EXPECTED DATA TABLE 

chp RS .MEDCHP4 [CHECK FOR END | 

INC R2 zSET UP TO CLEAR NEXT IRR BIT 

BR 1$ [CLEAR NEXT IRR BIT 
3$: DEC RG :D0 GROUP 

BEQ TST37 ::BR IF BOTH GROUPS TESTED 

MOV DRCSC,RO :CSRC ADDRESS 

MOV DRCSD.R1 =CSRD ADDRESS 

BR 111$ [D0 GROUP 


Fo RARER EREREEEEEEEEERERRRERREREERERRERRRRERREERRERKEEKEE 


s*TEST 37 TEST GROUP 1,2 SET SINGLE IRR BIT INSTR. 


SE EAAREREREERERAEREEREREERERERAEERAERARAERRERREAERRRERERKEEEEKEEREREEEE 


$137: SCOPE 
JSR PC,CLRCSR SCLEAR ALL CSRS 
MOV #1$,SLPERR ‘SCOPE RETURN ADDRESS 


MOV DRCSA,RO :CSRA ADDRESS 


SEQ 0039 


B 4 
CVDRCB DRV11J DIAG TST PRT]. = MACY11 30G6(1063) 10-AUG-81 10:58 PAGE 2-13 
CVDRCR.P11 | 10-AUG=81 10:51 gs TEST GROUP 1,2 SET SINGLE IRR BIT INSTR. SEQ 0040 

1136 010036 013701 001346 MOV DRCSB,R1 :CSRB ADDRESS 

1137 010042 004737 013174 JSR PC, CLRIRR *CLEAR IRR REGS WITH CHIP RESET 

1138 010046 010137 001 122 111$: MOV R1.$BDADR *STORE ADDRESS 

1139 010052 012703 013334 MOV #BGCHP3,R3 [GOOD DATA PATTERN TABLE 

1140 010056 112710 000250 MOVB = #MIRR, (RO) ‘LOAD MODE BITS FOR IRR 

1141 010062 01 202 000130 MOV #SSIRR,R2 SSET SINGLE IRR BIT VALUE 

1142 010066 111337 001124 1$: MOVB _— (R3),, $GDDAT SSTORE EXPECTED 

1143 010072 112710 000100 MOVB = ACIRR, (RO) SCLEAR ALL IRR BITS 

1144 010076 110210 MOVB ~——R2,, (RO) “SET SINGLE IRR BIT 

1145 010100 111115 MOVB (Ri), (RS) sREAD DATA PORT 

1146 +010102 023715 001124 CMP $GDDAT, (R5) 

1147 010106 001401 BEQ 2$ 

1148 010110 104003 ERROR 3 ZIRR REG ERROR 

1149 010112 005723 2$: TST (R3)+ SINC EXPECTED DATA TABLE 

1150 010114 020327 013354 CMP R3,#EDCHP3 SCHECK FOR END 

1151 010120. 001402 BEQ 3$ 

1152 010122 005202 INC R2 :SET UP TO SET NEXT IRR BIT 

1153 010124 000760 BR 1$ [SET NEXT IRR BIT 

1154 010126 005304 3$: DEC RG *DO GROUPS 1 AND 2 

1155 010130 001405 BEQ .  TST40 +:BR IF BOTH GROUPS TESTED 

1156 010132 013700 001352 MOV DRCSC,RO *CSRC ADDRESS 

1157 010136 013701 001356 MOV DRCSD,R1 *CSRD ADDRESS 

1158 010142 00074 BR 111$ :DO GROUP 2 

1160 FERRARA EERE RRRERERERERERRARREREEREREROREREERERRRERRRREEE 
(3) T*TEST 4u TEST GROUP 1,2 CLEAR IRR+IMR INSTR. 
(3) 5 LRRARRAARERRERRRAERERREEERAEEREREERRAERRERERRRERREREREREREREREER 
(2) 010144 TST40: SCOPE 

1161 010146 004737 013124 JSR PC, CLRCSR :CLEAR ALL CSRS 

1162 010152 012704 000002 MOV ¥ *COUNTER FOR TWO GROUPS 

1163 010156 013700 001342 MOV DRCSA,RO *CSRA ADDRESS 

1164 010162 013701 001346 MOV DRCSB,R1 *CSRB ADDRESS 

1165 010166 004737 013174 JSR PC, CLRIRR “CLEAR IRR REGS WITH CHIP RESET 

1166 010172 010137 001122 111$: MOV R1.$EDADR [STORE ADDRESS 

1167 010176 005037 001124 CLR SGDDAT SEXPECTED DATA 

1168 010202 112710 000250 MOVB  #MIRR, (RO) ‘LOAD MODE BITS TO READ IRR 

1169 010206 112710 000120 MOVB  #SIRR. (RO) [SET IRR BITS 

1170 010212 112710 000060 MOVB  #SIMR, (RO) *SET IMR BITS 

1171 010216 112710 000020 MOVB = ACIRMR, (RO) [CLEAR IRR+IMR COMMAND 

1172 010222 111115 MOVB = (R1), TREAD DATA POKT FOR IAR 

1173 010224 023715 001124 CMP $GDDAT, (R5) 

1174 010230 001401 BEQ 1$ 

1175 010232 104003 ERROR 3 sERROR ,IRR SKOULD BE CLEARED 

1176 010234 112710 000244 1$: MOVB MR, (RO) *LOAD MODE BITS TO READ IMR 

1177 010240 111115 MOVB — (R1),, (RS) SREAD IMR REG 

1178 010242 023715 001124 CMP SGDDAT, (R5) 

1179 010246 001401 BEQ 2$ 

1180 010250 104005 ERROR 5 sIRR+IMR COMMAND DID NOT CLEAR IMR 

1181 010252 005304 2$: DEC R4 ‘FINISHED BOTH GROUPS? 

1182 010254 001495 BEQ TST41 *:BR IF BOTH GROUPS TESTED 

1183 010256 013700 001352 MOV DRCSC,RO *SETUP FOR GROUP 2 

1184 010262 013701 001356 MOV DRCSD.R1 

1185 010266 000741 BR 111$ :D0 IRR+IMR TEST WITH GROUP 2 

1187 2 : REAR AEAEAEREEREEEEEEEEKEREREAKEAKEEKREEEKEKEEEEAEREREEEKEE 
(3) SeTEST 41 TEST GROUP 7,2 CLEAR SINGLE IRR+IMR BIT INSTR. 
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MACY11 596 ( 1065) 10-AUG-81 10:58 PAGE 2-14 


TEST GROUP 1,2 CLEAR SINGLE IRR+IMR BIT INSTR. 


© RRR EEE ER EEEREAERRERAERRREREEEEEEERERERKEKEEKRERE 


1ST41: SCOPE 


JSR PC,CLRCSR :CLEAR ALL CSRS 
MOV RG :GROUP COUNTER 
MOV #1$,$LPERR [SCOPE RETURN ADDRESS 
MOV DRCSA,RO SCSRA ADDRESS 
MOV DRCSB,R1 ?CSRB ADDRESS 
JSR PC, CLRIRR [CLEAR IRR REGS WITH CHIP RESET 
111$: MOV R1.$BDADR ‘STORE ADDRESS 
MOV #BGCHPS ,R3 :GO0D DATA PATTERN TABLE 
MOV ACSIRMR.R2 SCLEAR SINGLE IRR+IMR BIT VALUE 
1$: MOVB _— (R3) , $GDDAT SSTORE EXPECTED 
MOVB  #MIRR, (RO) SLOAD MODE BITS TO READ IRR 
MOVB  #SIRR, (RO) ‘SET ALL IRR BITS 
MOVB  #SIMR. (RO) ‘SET ALL IMR BITS 
MOVB 2, (RO) SCLEAR SINGLE IRR+IMR BIT 
MOVB (Ri), (RS) [READ DATA PORT FOR IRR 
CMP SGDDAT, (R5) 
BEQ 2$ 
ERROR 3 zIRR REG ERROR 
2$: MOVB  #MIMR, (RO) *SET UP TO READ IMR 
MOVB _— (R1),, (RS) “READ IMR REGISTER 
CMP $GDDAT, (R5) 
BEQ z 
ERROR 5 :IMR REG ERROR 
3$: TST (R3)+ SINC EXPECTED DATA TABLE 
cp R3 MEDCHPS [CHECK FOR END 
INC R2 . gSET UP TO CLEAR NEXT IRR+IMR BIT 
BR 1$ | SCLEAR NEXT IRR+IMR BIT 
4$: DEC R4 :DO GROUPS 1 
BEQ +:BR IF BOTH GROUPS TESTED 
MOV DRCSC,RO *CSRC ADDRESS 
MOV DRCSD.R1 [CSRD ADDRESS 
BR 111$ [DO GROUP 2 


© CREEK RRREEEREEREEEERERERERERREEERAEEEEREREREKREEKEEK 


SeTEST 42 TEST GROUPS 1,2 FOR GROUP UNIQUENESS 


5S RERREERREERE ERE AE ERE RAAR ARERR RERERRRRREREREREERE 


TST42: SCOPE 


SR PC,CLRCSR sCLEAR ALL CSRS 

zCSRA = RO 

3 = R1 

:CSRD = R3 
MOV #2,R4 sCOUNTER FOR TESTING TWO GROUPS 
JSR PC,CLRIRR sCLEAR IRR REGS WITH CHIP RESET 

1118: MOV R3,S$BDADR sSTORE ADDRESS 

MOVB #PACR, (RO) sPRESELECT ACR FOR WRITING 
MOVB 437 (R11) sWRITE INTO DATA PORT FOR ACR 
MOVB #SIRR, (RO) sSET IRR TO ALL 1°S 


;CLEAR IMR 

sLOAD MODE TO READ ACR 
EXPECTED 

sSTORE DATA FOR COMPARE 





MOV (R3),(R 
CMP SGDDAT, (R5) CHECK ACR RESULTS 








D 4 
O-AUG-81 10:58 PAGE 2-15 


CVDRCB DRV11u DIAG TST PRT1. MACY11 306(1063) 1 
CVDRCB.P11 10=AUG-81 10:51 T42 TEST GROUPS 1,2 FOR GROUP UNIQUENESS SEQ 0042 

1239 010524 001401 BEQ 1$ ; 

1240 010526 104004 ERROR 4 TERROR,OTHER GROUP ACR SHOULD BE CLEARED 

1241 010530 Merle 000244 1$: MOVB = #MIMR, (R2) SCHANGE TO IMR REGISTER 

1242 010534 012737 000377 001124 MOV #377, $GDDAT SSTORE EXPECTED 

1243 010542 111315 MOVB R3),(R :R 

1244 010544 023715 001124 CMP S$GDDAT, (R5) SSHOULD BE ALL 1'S 

1245 010550 001401 BEQ 2$ : 

1246 010552 104005 ERROR 5 sERROR,OTHER GROUP IMR SHOULD BE SET 

1247 010554 112712 000240 2$: MOVB #MISR, (R2) [LOAD MODE BITS FOR ISR 

1248 010560 005037 001124 CLR $GDDAT SSTORE EXPECTED 

1249 010564 111315 MOVB _ (R3), (R5) SREAD ISR 

1250 010566 023715 001124 CMP $GDDAT, (RS) tISR SHOULD BE CLEARED 

1251 010572 001401 BEQ 3$ 

1252 010574 104006 ERROR 6 zISR REG ERROR 

1253 010576 112712 000250 3$: MOVB #MIRR, (R2) zLOAD MODE BITS FOR IRR 

1254 010602 111315 MOVB _— (R3),, (R5) TREAD IRR 

1255 010604 023715 001124 CMP $GDDAT, (R5) TIRR SHOULD BE CLEARED 

1256 010610 001401 BEQ 4$ 

1257 010612 104003 ERROR 3 ;ERROR,OTHER GROUP IRR SHOULD BE CLEARED 

1258 010614 005304 4$: DEC RG [TEST GROUPS 1 AND 2 

1259 010616 001415 BEQ 3 :;BR IF BOTH GROUPS TESTED 

1260 010620 004737 013124 JSR PC,CLRCSR *CLEAR ALL CSRS 

1261 010624 013700 001352 MOV SC,RO :GROUP 2 CONTROL PORT 

1262 010630 013701 001356 MOV DRCSD.R1 ‘GROUP 2 DATA P 

1263 010634 013702 001342 MOV DRCSA.R2 “GROUP 1 CONTROL PORT 

1264 010640 013703 001346 MOV DRCSB,R3 sGROUP 1 DATA PORT 

1265 010644 004737 013174 JSR PC,CLRIRR sCLEAR IRR REGS WITH CHIP RESET 

1266 010650 000704 BR 111$ STEST GROUP 2 ACR UNIQUENESS 

1268 33 KARR REEREREEEKEKEEAEREEEEKEREREREKREKEERREREEARKEREKE 
(3) Z*TEST 43 TEST STATUS BITS GINT,S2,S1,S0,GP1,2 
(3) 2s REREEEEEAEEEEEKEERREREEERERREEKEKEEKEKEKEEKRKKERAEKEEKEEEEEKEREEKE 
(2) 010652 000004 TST43: SCOPE 

1269 010654 004737 013124 JSR PC,CLRCSR ZCLEAR ALL CSRS 

1270 010660 013700 001342 MOV DRCSA,RO 

1271 01 013701 001346 MOV DRCSB.R1 

1272 010670 012703 000002 MOV #2.R :D0 TWO GROUPS 

1273 010674 012704 000120 111$: MOV #120,R4 *EXPECTED STATUS BITS 

1274 010700 005077 170436 CLR aDRCSA tINIT CSRA 

1275 010704 005077 170442 CLR aDRCSC SINIT CSRC 

1276 010710 012702 013234 MOV #BGPAT1,R2 sEXPECTED IRR PATTERN 

1277 010714 112760 000001 000001 MOVB #BITO,1(RO) [CSR TO OUTPUT MODE 

1278 010722 112777 000204 170412 MOVB #204,aDRCSA *POLLED MODE FOR CSRA,GROUP 1 

1279 010730 112777 000204 170414 MOVB #204.aDRCSC *POLLED MODE FOR CSRC.GROUP 2 

1280 010736 112710 000020 MOVB #CIRMR, (RO) [CLEAR IMR + IRR 

1281 010742 012737 000070 001372 MOV WSSIMR.IMRLOC :STORE CODE FOR SINGLE IMR 

1282 010750 012737 000130 001376 MOV WSSIRR.IRRLOC STORE CODE FOR SINGLE IRR 

1233 010756 010037 001122 112$: MOV RO,$BDADR ?CSR CHIP COMMAND ADDRESS 

1284 010762 010437 001124 MOV R4.$GDDAT SEXPECTED D 

1285 010766 113710 001376 MOVB _—sIRALOC, (RO) [SET SINGLE IRR BIT 

1286 010772 111015 MoVB (RO), (R5) *CHECK STATUS 

1287 010774 042715 000007 BIC #7, (R5) +; **& VDRCAT ADDS THIS *** 3:GPA 

1288 011000 023715 001124 CMP $GDDAT, (RS) 

1289 011004 001401 BEQ 1$ 

1290 011006 104007 ERROR 7 :CHIP STATUS ERROR 

1291 011010 005037 001124 1$: CLR $GDDAT 





CVDRCB DRV11J DIAG TST 
CVDRCB.P11 10-AUG=81 
p34 011014 010137 
1293 611020 111237 
1294 011024 112710 
1295 011030 111115 
1296 011032 023715 
1297 011036 001401 
1298 011040 104003 
1299 011042 010037 
1300 011046 113710 
1301 011052 012737 
1302 011060 111015 
1303 011062 042715 
1304 011066 023715 
1305 011072 001401 
1306 011074 104007 
1307 011076 010137 
1308 011102 011237 
1309 011106 112710 
1310 011112 111115 
1311 011114 023715 
1312 011120 001401 
1313 011122 104005 
1314 011124 005722 
1315 011126 020227 
1316 011132 001407 
1317 011134 005237 
1318 011140 005237 
1320 011144 000240 
1321 011146 000137 
1322 011152 005303 
1323. 011154 001406 
1324 011156 013700 
1325 011162 013701 
1326 011166 000137 
1327 
1328 
1329 

(3) 

(3) 

(2) 011172 000004 
1330 011174 004737 
1331 
1332 
1333 
1334 
1335 011200 012737 
1336 011206 012704 
1337 011212 112760 
1336 011220 112761 
1340 011226 105010 
1341 011230 105012 
1342 011232 112710 
1343 011236 112712 
1344 011242 011460 


PRT1 
10:51 


001122 
001372 
000320 


000007 
001124 


001122 
001124 
000244 


001124 


013254 


001376 
001372 


010756 


001352 
001356 
010674 


013124 


011242 
013232 
000001 
000001 


000204 
000204 
000002 


MACY11 306(1063) 
143 


001124 


001110 


000001 
000001 


E 4 
10-AUG-81 10:58 PAG 
TEST STATUS BITS GINT,S 
MOV R1,$BDADR 
MOVB  (R2), $GDDAT 
MOVB = HMI RR, (RO) 
MOoVB _ (R1), (R5) 
CMP S$GDDAT, (RS) 
BEQ $ 
ERROR 
2$: MOV RO, $BDADR 
MOVB —_—IMRLOC, (RO) 
MOV #320, $GDDAT 
MOVB (RO). (R5) 
BIC » (RS) 
CMP $GDDAT, (R5) 
BEQ 3$ 
ERROR 
3S: MOV R1,$BDADR 
MOV (R2) , $GDDAT 
MOVB = AMIMR, (RO) 
MOVB _—(R1),, (R5) 
CMP $GDDAT, (RS) 
BEQ 4$ 
ERROR 5 
4$: TST (R2)+ 
CMP R2,MEDCHP1 
BEQ 5$ 
INC IRRLOC 
INC IMRLOC 
z:GPA INC RG 
NOP 
JMP 1128 
5$: DEC R3 
BEQ TST44 


MOV DRCSC,RO 
MOV DRCSD,R1 
111$ 


PLRARRAKRKeReeeeekeeeeeeteetter 
z*TEST 44 
erie iti iii iiiiiii iit itis) 
TST44: SCOPE 

JSR PC,CLRCSR 


MOV #1$,$LPERR 
MOV #BEGPAT ,R4 
MOVB #B1T0,1(RO) 
MOVB #81T0,1(R1) 
LRB (RO) 
CLRB (R2) 
MOVB #204, (RO) 
MOVB #204, (R2) 
1$: MOV (R4) ,2(RO) 


5 »81.$0,GP1,2 

:CSR CHIP DATA ADDRESS 
;READ IRR 

;CHECK IRR 

;IRR ERROR 


sSET IMR BIT 
sCSR EXPECTED DATA 


CLEAR UNDEFINED BITS 


CHIP STATUS ERROR 


sEXPECTED DATA 
sREAD IMR BITS 
zSAVE IMR READ 


; IMR_ERROR 
NEXT EXPECTED FOR IMR + IRR 
CHECK FOR END 


;NEXT IRR BIT 

NEXT IMR BIT 

zs INDEX EXPECTED STATUS 

33_*** VDRCA1 DELETES INC R4 *** ;;GPA 
D0 NEXT STATUS CHECK 


sFINISHED BOTH GROUPS? 
33BR IF EQUAL 


3D0 NEXT GROUP 


RREEREREREKRREKRKEEERERREKEREEEEEEKEKE 


TEST POLLED MODE;CSRS A,B=OUT C,D=IN,ACTIVE LOW 


REREREKAERAEEKEEEAEREREREREREREREEKEKK 


;CLEAR ALL CSRS 
sRO=C 


: ES 

sCHIP RESET GR 2 CSRC 

3LOAD MODE BITS FOR POLLED MODE,GR 1 
3LOAD MODE BITS FOR POLLED MODE ,GR2 
3SET PATTERN DBRA FROM H TOL 


3R1 = CSRB-GROUP 1 DATA 
3R2 = CSRC-GROUP 2 CONTROL 
3R3_= CSRD-GROUP 2 DATA 
sSET FOR SC RETURN 
START OF PATTERN TABLE 
sSET CS TPUT MODE 
SET CSRB TO OUTPUT MODE 
CHI 

C 

L 


SEQ 0043 


F 4 
CVDRCB DRV11J_ DIAG TST PRT1 MACY11 30G6(1063) 10-AUG-81 10:58 PAGE 2-17 
CVDRCB.P11 10-AUG=81 10:51 144 TEST POLLED MODE;CSRS A,B=OUT C,D=IN,ACTIVE LOW 


1345 011246 112710 000020 MOVB = ACIRMR, (RO) SCLEAR IMR+IRR GROUP 1 

1346 011252 112712 000020 MOVB  #CIRMR, (Re) [CLEAR IMR+IRR GROUP 2 

1347 011256 005060 000002 CLR —- 2¢RO) TCLEAR DBRA,ACTIVE LOW WILL SET RPLY C 

1348 011262 010137 001122 2s: MOV. _——R1, $BDADR : GROUP 1 DATA PORT 

1349 011266 112710 000250 MOVB #MIRR, (RO) [LOAD BITS TO READ IRR 

1350 O1l272 111437 001124 MOVB  (R4) ,$GDDAT 

1351 011276 111115 MOVB . ;READ IRR,GROUP 1 

1352 011300 023715 001124 CMP —- $GDDAT,, (RS) 

1353 011304 001401 BEQ ss 3$ 

1354 011306 104003 ERROR 3 IRR ERROR, GROUP 1 

1355 011310 010337 001122 3$: MOV = R3, SBDADR [GROUP 2 DATA PORT 

1356 011314 112712 000250 MOVB  #MIRR, (R2) LOAD MODE BITS TO READ IRR GROUP2 

1357 011320 116437 000001 001124 MOVB  1(R4),$GDDAT | ;BUILD EXPECTED DATA 

1358 011326 042737 000360 001124 BIC  _#360,$GDDAT =: SA $ 0- 

1359 011334 052737 000100 001124 Bis #100,$GDDAT TEXPECTED O=3,URPLY 6(C) 

1360 011342 111315 MOVB : [READ IRR BITS,GROUP 2 

1361 011344 023715 001124 CMP —- $GDDAT,, (RS) 

1362 011350 001401 BEQsis4S 

1363 011352 104003 ERROR 3 IRR ERROR,GROUP 2 

1364 011354 005762 000002 4$: TST 2(R2) READ DBRC FOR RPLY 4(A) 

1365 011360 052737 000020 001124 BIS #20, $GDDAT SSTORE EXPECTED 

1366 011366 111315 MOVB (R35, (R5) SREAD IRR BITS,GROUP 2 

1367 011370 023715 001124 CMP — $GDDAT,, (RS) 

i368 011374 001401 BEQ 5$ 

1369 011376 104003 ERROR 3 IRR ERROR,GROUP 2 

1370 011400 005061 000002 5$: CLR =—-2¢R1) [CLEAR DBRB FOR RPY 7(D) 

1371 011404 052737 000200 001124 BIS #200, $GDDAT EXPECTED 

1372 011412 111315 MOVB = (R3),(R [READ IRR BITS GROUP 2 

1373 011414 023715 001124 CMP —- $GDDAT,, (RS) 

1374 011420 001401 Fo —s«6S 

1375 011422 104003 ERROR IRR ERROR,GROUP 2 

1376 011424 005763 000002 6S: TST 23) [READ DBRD'FOR RPLY 5(8) 

1377 011430 052737 000040 001124 BIS  § #40,$GDDAT 

1378 011436 111315 MOVB —- (R35,,(R5) ;READ IRR BITS GROUP2 

1379 011440 023715 001124 CMP —- $GDDAT,, (RS) 

1380 011444 001401 BEQ ss 7$ GET NEXT PATTERN 

1381 011446 104003 ERROR 3 IRR ERROR,GROUP 2 

1382 011450 005724 7$: TST (R4)+ SINDEX DATA TABLE 

1383 011452 020427 013532 CMP —s- R44, MENDDAT CHECK FOR END 

1384 011456 001271 BNE 1$ [DO NEXT PATTERN 

1386 

1387 FERRARA ARERR ARERR EERE EERE RR RAERRERERRERRERREREREREE EER ERE ERE 
(3) TSTEST 45 TEST GROUPS 1,2 IN POLLED MODE,NO REPLY 
(3) SE RRRRRAR ERE EEERER ERR ERE RARER EAREERRERERRRERARRRRE REE 
(2) 011460 000004 TST45: SCOPE 

1388 011462 004737 013124 JSR —s- PC, CLRCSR CLEAR ALL CSRS 

1389 [RO = CSRA-GROUP 1 CONTROL 

1390 R1 = CSRB-GROUP 1 DATA 

1391 :R2 = CSRC-GROUP 2 CONTROL 

1392 R3_= CSRD-GROUP A 

1393 011466 012704 000002 MOV —s- #2, R4 [TWO PASSES 

1394 FIRST PASS CSRA,CSRB = OUTPUT 

1395 : : = INPUT 

1396 TSEC PASS CSRC.CSRD = OUTPUT 

1397 : CSRA.CSRB = T 
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PRT1 
10:51 
000001 


000001 
177777 


001122 
000007 
001124 
001122 
000007 
001124 


000000 


001124 
001124 
017306 


000300 
001124 


001124 
017306 


000060 
001124 


MACY11 306(1063) 
T45 


000001 
000001 
000002 


001124 


000002 
000002 


001124 


001124 


10-AUG-81 


TEST GROUPS 1 


MOVB #81T0 
OvVB #81T0 
MOV #-1 


MOVB ids (R5) 


cMP $ 


TST KXTFLAG 


#60, $GDDAT 
CMP peeoAl ,(R5) 


sREAD STA 
:CLEAR UN 
sCHECK STATUS 


CHIP STAT 
Ab ADDRESS 


STATUS 
EAR UNDEFINED BITS 


» (RS) 
CMP $GDDAT, (RS) 
1s 
R2,$BDADR 
move (Re) 5 (RD) 


P CL 
CMP * al esate 


WRITE 
READ 
sWRIT 


SGDDAT 
MOVB (R1),(R5) 
SGDDAT, (R5) 


TST KXTFLAG 


100$ 
MOV #300, SGDDAT 
CMP SGDDAT, (R5) 


TST46 
JSR PC,CLRCSR 
MOV DRCSC,RO 
MOV DRCSD,R1 
MOV DRCSA,R2 


3SET UP 






PAGE 2-18 
POLLED MODE,NO REPLY 
3SET CSR TO OUTPUT MODE 
SET CSR TO OUTPUT 
3SET ALL ONES 
3;CHIP RESET GROUP 
CHIP RESET GROUP CSR 
AAD MODE BITS FOR POLLED MODE 
;LOAD MODE BITS FOR POLLED MODE 
AR IMR+IRR 


: CHIP STATUS ERROR 

ONLY,DBR_INPUT MODE FOR NO REPLY 
DBR OUTPUT MODE, 

sWRITE ONLY. DBR INPUT 
: CHIP DAT 
;LOAD 


; ON KXT11, READ-BEFORE-WRITE... 
3-..AT 2$ UPSETS EXPECTED IRR. 


3 TRY THE ALTERNATE VALUE. 


7 IRR ERROR 


CHIP DATA PORT 
OAD MODE BITS TO READ IRR 


EAD IRR BITS 


: ON KXT11, DITTO. 
3 TRY THE ALTERNATE VALUE. 


zIRR_ ERROR 
FINISHED TWO PASSES 
; EQUAL 


[CLEAR ALL CSRS 
FOR NEXT PASS 














MODE 
DBR FOR H TOL 
CSR 





IMR+IRR 
BR p9 gyreus MODE ,NO REPLY 


TUS 
DEFINED BITS 


US_ ERROR 
RES 


REP 

MODE .NO REPLY 
DATA_PORT 

BITS TO READ IRR 

IRR SHOULD BE ZERO 

;READ IRR 










1454 
1455 
1 
1 


> 
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10-AUG-81 


CVDRCB DRV11J DIAG TST 
CVDRCB.P11 


012002 013703 
012006 000631 


oS 
Neu 


ssss=sss 


—S0O—-0 
meu 


PS 


PRT1 
10:51 


001346 


013124 


012060 
3 
000001 


000204 


001124 
001124 
001122 
“000250 
000020 
001124 
000002 
000100 
001124 
000002 
000040 
001124 
000002 
000200 
001124 


MACY11 306(1063) 
T45 


001110 


000001 
000001 


001124 
001124 
001124 


001124 


001124 


001124 


© RUE AEEEAEERAEEEERAEEREEEEEREEEEREREREEKEREEEEEREKREAEKEERERKEEREKEEEK 


H 4 
10-AUG-81 10:58 PAGE 2-19 
TEST GROUPS 1,2 IN POLLED MODE,NO REPLY 


MOV 
BR 


T*TEST 46 


TST46: SCOPE 
JSR 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


DRCSB RS 
111$ 


TEST POLLED MODE;CSRS C,D=OUT A,B=IN,ACTIVE LOW 


© RRR EEEEEREEREEKEEEERREAREREREKEEEEEEKKEEEEREEEKE 


PC,CLRCSR 


#1$,SLPERR 
#BEGPAT ,R4 


os R,(R2) 


SGDDAT, (RS) 
3$ 
R3,S$BDADR 


#360, $GDDAT 
#20, $GDDAT 
(R35, (R5) 

SGDDAT, (R5) 


2(RO) 

#100, $GDDAT 
(R35), (R5) 
EePOAt., (85) 


( eo ) 
SGDDAT , (RS) 
6$ 


2(R1) 

#200, $GDDAT 
(R3) , (R5) 
SGDDAT, (R5) 


#MIRR, (R2) 
1(R4) oe 








3D0 NEXT PASS 






sCLEAR ALL CSRS 

3RO = CSRA=GROUP 1 CONTROL 
3R1 = CSRB-GROUP 1 DATA 
3R2 = CSRC=GROUP 2 CONTROL 
3R3_= CSRD-GROUP 2 DATA 






3CHIP E ic 

;CHIP RESET GROUP 2 CS 
3LOAD MODE BITS FOR POLLED MODE,GR 1 
3LOAD MODE BITS FOR POLLED MODE ,GR2 

SET PATTERN DBRC FOR H TOL 

; R GROUP 1 






sREAD IRR,GROUP 1 

3 IRR ERROR,GROUP 1 

sGROUP 2 DATA PORT 

;LOAD MODE BITS TO READ IRR GROUP2 


3SAVE BITS 0-3 
sEXPECTED O-3,URPLY 4(A) 
sREAD IRR BITS,GROUP 2 


7IRR_ERROR,GROUP 2 
READ DBRA FOR RPLY 6(C) 
sSTORE EXPECTED 

sREAD IRR BITS,GROUP 2 


7IRR ERROR,GROUP 2 
;CLEAR_DBRD FOR RPY 5(B) 
sEXPECTED 

sREAD IRR BITS GROUP 2 


3 IRR_ERROR,GROUP 2 
;READ DBRB FOR RPLY 7(D) 


sREAD IRR BITS GROUP2 


14 kad 
CVDRCB _DRVI1J DIAG TST PRT]. MACY11 30G(1063)__10-AUG-81 10:58 PAGE 2-20 , 
CVDRCB.P11 " 10~AUG-81 10:51 146 TEST POLLED MODE;CSRS C,D=OUT A,B=IN,ACTIVE LOW SEQ 0047 


1507 012262 001401 BEQ 7$ 

1508 012264 104003 ERROR 3 yIRR ERROR,GROUP 2 

1509 012266 005724 7$: TST (R4)+ S INDEX DATA TABLE 

1510 012270 020427 013532 CMP R4,#ENDDAT *CHECK FOR END 

Bi 012274 001271 BNE 1$ :DO NEXT PATTERN 

ile 

1515 FERRARA REAR EEAEE EERE RE REE RERERERERRERRRERAREERRRRRRERE EE 
(3) TeTEST 47 TEST IRR BITS WITH DATA PAT.,POLLED MODE,ACT. HIGH 
(3) SERRA RARAARERRRRERERRREREEE ARERR EEREREEREREERERRERERRRRERERRERE 
(2) 012276 000004 1S147: SCOPE 

1516 012300 004737 013124 JSR PC,CLRCSR ICLEAR ALL CSRS 

1517 012304 012703 013232 MOV #BEGPAT,R3 :GET DATA PATTERN TABLE 

1518 012310 012737 000001 001110 MOV #1,$LPERR [SET UP SCOPE ADDRESS 

1519 012316 013700 001342 MOV DRCSA,RO 

1520 012322 013701 001346 MOV DRCSB.R 

1521 012326 013702 001356 MOV DRCSD.R2 

1522 012332 112760 000001 000001 MOVB = #BITO.1(RO) sCSRA OUTPUT MODE 

1523 012340 112761 000001 000001 MOVB  4#BIT0.1(R1) :CSRB OUTPUT MODE 

1524 012346 112710 000224 MOVB #224, (RO) SLOAD MODE BITS FOR POLLED MODE,GP1 

1525 012352 112760 000224 000010 MOVB #224,10(RO) SLOAD MODE BITS FOR POLLED MODE,GP2 

1526 012360 005060 000002 1$: CLR 2(ROS *CLEAR DBRA 

1527 012364 112710 000020 MOVB  A#CIRMR, (RO) *CLEAR IMR +IRR GROUP 1 

1528 012370 112760 000020 000010 MOVB  #CIRMR.10(RO) :CLEAR IMR + IRR GROUP 2 

1529 012376 011360 000002 MOV (R3) ,2(RO) ‘STORE PATTERN INTO DBRA 

1530 012402 010137 001122 MOV R1,$B8DADR [CSRB ADDRESS 

1531 012406 112710 000250 MOVB  #MIRR, (RO) “LOAD BITS TO READ IRR1 

1532 012412 111337 001124 MOVB _— (R3), $GDDAT 

1533 012416 111115 MOVB (R17). (R5) ;READ IRR,GP1 

1534 012420 023715 001124 CMP $GDDAT, (R5) 

1535 012424 001401 BEQ 2$ 

1536 012426 104003 ERROR 3 s IRR ERROR,GP1 

1537 012430 010237 001122 2$: MOV R2,$BDADR *CSRD ADDRESS 

1538 012434 112760 000250 000010 MOVB #MIRR,10(RO)  :SET MODE TO READ IRR BITS GROUP 2 

1539 0124642 116337 000001 001124 MOVB 1(R3),$GDDAT | ;BUILD EXPECTED DATA 

1540 012450 042737 000360 001124 BIC #360, $GDDAT BITS 0-3 EXPECTED 

1541 012456 052737 000100 001124 BIS #100. $GDDAT :"A'* REPLY EXPECTED 

1542 012464 111215 MOVB )»°(R5) TREAD IRR2 

1543 012466 023715 001124 CMP $GDDAT, (R5) 

1544 012472 001401 BEQ 3$ 

1545 012474 104003 ERROR zIRR GROUP 2 

1546 012476 005723 3$: TST (R3)+ S INDEX DATA TABLE 

1547 012500 020327 013532 CMP R3,HENDDAT *CHECK FOR PATTERN END 

1348 012504 001325 BNE 1$ [DO NEXT PATTERN 

1550 

1551 FL ERRARAR RARER REREEE RARER EEAERERREREREEREREEREERRERRERERE 
(3) T*TEST 50 TEST CSRA AND CSRB WITH RESET 
(3) bd 2 REE AEEEAEREKEEEAEEEEKAEREREEEARERAAEREREREREEEEREROREKE 
(2) 012506 000004 T$T50: SCOPE 
(1) 012510 012737 000001 001160 MOV #1,STIMES ::D0 1 ITERATION 

1552 012516 004737 013124 JSR PC; CLRCSR SCLEAR ALL CSRS 

1553 012522 013700 001342 MOV DRCSA,RO 

1554 012526 013701 001346 MOV DRCSB.R1 

1555 012532 112760 001001 000001 MOVB #IE!BITO,1(RO) ;CSRA TO OUTPUT MODE 











J. 4 
Q-AUG-81 10:58 PAGE 2-21 


CVDRCB DRV11u DIAG TST PRT1. MACY11 30G(1063)_ 1 
CVDRCB.P11 10-AUG=81 10:51 T50 TEST CSRA AND CSRB WITH RESET SEQ 0048 
1556 012540 112761 000001 000001 MOVB = #BITO,1(R1) :SET CSRB TO OUTPUT MODE 
1557 012546 010037 001122 MOV RO,$BDA [STORE CSRA ADDRESS 
1558 012552 012737 100300 001124 MOV #100300,$GDDAT :RDY + CHIP STATUS EXP'D 
1559 012560 000005 RESET t INITIALIZE 
1560 012562 011015 MOV (RO), (RS) *STORE REC'D 
1561 012564 042715 000007 BIC , (RS) ‘CLEAR UNDEFINED BITS 
1562 012570 023715 001124 CMP $GDDAT, (R5) ‘MAKE COMPARE 
1563 012574 001401 BEQ 1$ 
1564 012576 104002 ERROR 2 sCSRA ERROR ON RESET 
1565 012600 012737 100000 001124 18: MOV #100000.$GDDAT STORE EXPECTED 
1566 012606 010137 001122 MOV R1,$BDAb2 : RB 
1567 012612 011115 MOV (Ri), (RS) ‘STORE IN $BDDAT 
1568 012614 023715 001124 CMP $GDDAT, (R5) sMAKE COMPARE 
1569 012620 001401 BEQ TST51 *:BR IF EQUAL 
1370 012622 104002 ERROR 2 *CSRB ERROR WITH RESET 
1572 
1573 FY RARER EERE EE ERE EREREREREREEREREEEREEERERRERERRRERER EEE 
(3) SeTEST 51 TEST CSRC AND CSRD WITH RESET 
(3) 3 LRRRRERARARERRERERERRERERER EERE RERREREREERERERRERERRERERRERER RE 
(2) 012624 000004 TST51: SCOPE 
(1) 012626 012737 000001 001160 MOV #1,S$TIMES ::D0 1 ITERATION 
1574 012634 004737 013124 JSR PC. CLRCSR 
1575 012640 013702 001352 MOV DRCSC,R2 
1576 012644 013703 001356 MOV DRCSD.R3 
1577 012650 112762 000001 000001 MOVB #BITO,1(R2) sSET CSRC TO OUTPUT MODE 
1578 012656 112763 000001 000001 MOVB #BITO,1(R3) ‘SET CSRD TO OUTPUT MODE 
1579 012664 010237 001122 MOV R2,$BDADR *STORE ADDRESS 
1580 012670 012737 100200 001124 MOV #100200,$GDDAT :RDY + CHIP STATUS 
1581 012676 000005 RESET INITIALIZE 
1582 012700 011215 MOV (R2),(R5) ‘STORE CSRC 
1583 012702 042715 000007 BIC #7, (R5) [CLEAR UNDEFINED BITS 
1584 012706 023715 001124 CMP SGDDAT, (RS) ‘MAKE COMPARE 
1585 012712 001401 BEQ 1$ 
1586 012714 104002 ERROR 2 :CSRC ERROR WITH RESET 
1587 012716 010337 001122 1$: MOV R3,$BDADR *CHECK CSRD 
1588 012722 012737 100000 001124 MOV #100000,$GDDAT :STORE EXPECTED 
1589 012730 011315 MOV (R3), (R5) SREAD CSRD 
1590 012732 023715 001124 CMP SGDDAT, (R5) [MAKE COMPAR 
1591 012736 001401 BEQ 2$ 
1592 012740 104002 ERROR 2 sCSRD ERROR ON RESET 
1593 012742 2$: 


1594 













K 4 
pone DRV11J_ DIAG TST PRT MACY11 596 (1063) 10-AUG-81 10:58 PAGE 3 


VDRCB.P11 10=AUG-81 10:51 TEST CSRC AND CSRD WITH RESET SEQ 0049 
1596 
138 
1599 DON'T REPORT "EOP"’ UNTIL ALL SELECTED DRV11-J'S HAVE BEEN TESTED. 
1600 012742 013701 001342 NXDEV: MOV DRCSA,R1 sINIT TO SETUP NEXT DRV11J ADDRESSES 
1601 012746 000241 NXDEV1: CLC [CLEAR CARRY FOR DEVICE MAP 
1602 012750 006037 001364 ROR DMAP tLOOK FOR NEXT DRV11J 
1603 012754 001412 BEQ $EOP ‘BR IF ALL TESTED 
1604 012756 162701 000020 SUB #20,R1 “NEXT DRV11<J STARTS -20 
1605 012762 005237 001202 INC SUNIT ‘UPDATE UNIT NUMBER 
1606 012766 032737 000001 001364 BIT #1 ,DMAP [1S UNIT SELECTED? 
1607 012774 001764 BEQ NXDEV1 ‘NEXT, IF NOT SELECTED 
1608 012776 000137 002100 JMP NEXPAS STEST NEXT DRV11-J 
1609 .SBTTL END OF PASS ROUTINE 
(2) FERRARA RERREREREEERERERRERRRRERKEEEEEERERERERERERRERERRE RE 
(1) ;*INCREMENT THE PASS NUMBER ($PASS) 
(1) SaTYPE "END PASS #XXXXX' (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) :*IF THERES A MONITOR GO TO IT 
(1) :*IF THERE ISN'T JUMP TO START1 
(1) 013002 SEOP: 
(2) 013002 000240 NOP 
(1) 013004 005037 001102 CLR STSTNM :3ZERO THE TEST NUMBER 
(1) 013010 005037 001160 CLR STIMES *: ZERO THE NUMBER OF ITERATIONS 
(1) 013014 005237 001176 INC SPASS *: INCREMENT THE PASS NUMBER 
(1) 013020 042737 100000 001176 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(1) 013026 005327 DEC (PC)+ + LOOP? 
(1) 013030 000001 SEOPCT: .WORD 
(1) 013032 003022 BGT $DOAGN ri YES 
(1) 013034 012737 MOV (PC)+,a(PC)+  ::RESTORE COUNTER 
(1) 013036 000001 SENDCT: .WORD 1 
(1) 013040 013030 $EOPCT f 
(1) 013042 104401 013107 TYPE SENDMG s:TYPE “END PASS # 
(2) 013046 013746 001176 MOV $PASS,-(SP) t:SAVE $P4SS FOR TYPEOUT 
(2) 013052 104405 TYPDS £:G0 TYPE--DECIMAL ASCII WITH SIGN 
(1, 013054 104401 013104 TYPE  ,$ENULL t: TYPE A NULL CHARACTER 
(1) 013060 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
(1) 013064 001405 BEQ $DOAGN + :BRANCH IF NO MONITOR 
(1) 013066 000005 RESET S:CLEAR THE WORLD 
(1) 013070 004710 SENDAD: JSR PC, (RO) ::60 TO 
(1) 013072 240 NOP 325A 
(1) 013074 900240 NOP +: 
(1) 01307 240 NCP t:ACT11 
(1) 013100 $DOAGN: 
(1) 013100 000137 JMP a(PC)+ : :RETURN 
(1) 013102 002034 SRTNAD: .WORD START1 
(1) 013104 377 377 000 $ENULL: .BYTE <-1,-1,0 >;NULL CHARACTER STRING 
(1) 013107 015 042412 042116 $ENDMG: .ASCIZ <15><{2>/END PASS #/ 
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CVDRCB DRV11J_ DIAG TST PRT1 MACY11 306(1063) 10-AUG-81 10:58 PAGE 3-1 
CVDRCB.P11 10-AUG=81 10:51 PROGRAM SUBROUTINES SEQ 0050 


tele -SBTTL PROGRAM SUBROUTINES 

161 

1614 TDS SAARI IIIA ISI IIIS IIISISIIIIIIIIOISIIIOINIOIIII I III tit 
1615 CLEAR ALL CONTROL/STATUS REGISTERS 

1616 ZINIT REGISTERS RO-R4 WITH CSRA-CSRD 

1617 sAND STORE $B8DDAT ° 

1618 SE RRRRERRERER ERR RA RARER EERE EERE EERE EERE RRR ERERER ERE RE REE 
1619 013124 012705 001126 CLRCSR: MOV #SBDDAT RS 3BAD DATA STORAGE IN R5 

1620 013130 013700 001342 MOV DRCSA,RO 3CSRA ADDRESS TO RO 

1621 013134 013701 001346 MOV DRCSB,R1 3CSRB ADDRESS TO R1 

1622 013140 013702 001352 MOV DRCSC,R2 sCSRC ADDRESS TO R2 

1623 013144 013705 001356 MOV DRCSD,RS 3CSRD ADDRESS TO RS 

1624 013150 005037 001124 CLR sCLEAR EXPECTED 

1625 013154 005015 CLR sCLEAR REC 

1626 013156 005010 CLR (RO) 3CLEAR CSRA;CHIP RESET GROUP 1 
1627 013160 105061 000001 CLRB 1(R1) CLEAR HIGH BYTE CS 

1628 013164 005012 CLR (Re) 3CLEAR CSRC;CHIP RESET GROUP 2 
1629 013166 1050635 000001 CLRB 1(R3) CLEAR HIGH BYTE CSRD 

1630 013172 000207 RTS 

1632 

1633 CLEAR IRR REGISTERS,GROUP 1,GROUP 2 WITH CHIP RESET 

1634 013174 010046 CLRIRR: MOV RO,-(SP) 

1635 013176 013700 001342 MOV DRCSA,RO sSTART_OF CSR_ADDRESS 

1636 013202 105060 000011 CLRB 11(RO sCSRC TO INPUT MODE 

1637 013206 112760 000001 000001 MOVB #81T0,1(RO) 3CSRA_ TO OUTPUT MODE 

1638 013214 005060 000002 CLR 2(RO) CLEAR DBRA 

1639 013220 105010 CLRB (RO) ;CHIP RESET OF GROUP1 

1640 013222 105 000010 CLRB 10(RO) CHIP RESET OF GROUP 2 

1641 013226 012600 MOV (SP)+,RO sRESTORE REGISTER 

iohg 0132350 000207 RTS PC sEXIT 


CVDRCB DRV11J DIAG TST PRT1 
10-AUG=81 10:51 


CVDRCB.P11 

1645 

1646 

1647 

1648 

1649 

1650 013232 
1651 013234 
1652 013236 
1653 013240 
1654 013242 
1655 013244 
1656 013246 
1657 013250 
1658 013252 
1659 013254 
1660 013256 
1661 013260 
1662 013262 
1663 013264 
1664 013266 
1665 013270 
1666 013272 
1667 013274 
1668 013276 
1669 013300 
1670 013302 
1671 013304 
1672 013306 
1673 013310 
1674 013312 
1675 013314 
1676 013316 
1677 013320 
1678 013322 
1679 013324 
1680 013526 
1681 013330 
1682 

1683 013332 
1684 013334 
1685 013336 
1686 013340 
1687 013342 
1688 013344 
1689 013346 
1690 013350 
1691 013352 
1692 013354 
1693 913356 
169% 013360 
1695 013362 
169% 013364 
1697 013366 
1698 013370 
1699 013372 
1700 013374 


000000 


1 
177777 
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PROGRAM SUBROUTINES 


-SBTTL PATTERNS FOR REGISTER R/W 
;PATTERNS USED FOR LOADING/READING REGISTERS 


BEGPAT: 0 
BGPAT1: 


EDCHP1: 777 


BGCHP2: 177776 


EDCHP2: 177400 


S 
S 
S 
S 
So 


BGCHP3: 


EDCHP3: 


ay Nene tnd tnd we 
NOOSSOOOOOSOOOSO 
NSOSSSSOSOSSSS 
NSOSSSOSSSO 

NOCSS 


NO 


sGROWING 1 


sGROWING 0 


sWALKING 1 


sWALKING 0 


SEQ 0051 
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ww" 
bh ee 
Zo 
axe 
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CVDRCB.P11 10-AUG=81 10:51 SYSMAC Rour Ines SEQ 0053 C 
122 -SBTTL SYSMAC ROUTINES 
Wes -SBTTL TYPE ROUTINE 
(2) ZEAE IES ISOS IIIT IIIT III 
(1) :SROUTINE TO TYPE ASCIZ ert eat MUST TERMINATE WITH A 0 
(1) 3 *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) ;*NOTE1: SNULL CONTAINS = CHARACTER q BE USED AS THE FILLER CHARACTER. 
(1) :*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
a ; sNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(1) TCA LL: 
(1) :#1) USING A TRAP INSTRUCTION 
ot} “OR YPE eMESADR zzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 
(1) 3* TYPE 
(1) 3* MESADR 
oh e 
(1) 013534 105737 001157 $TYPE: TSTB S$TPFLG 2331S ge A TERMINAL? 
(1) 013540 100002 BPL 1$ 72BR IF Y 
(1) 013542 000000 HALT 3;HALT HERE IF NO TERMINAL 
(1) 013544 000430 BR 3$ + sLEAVE 
(1) 013546 010046 1$: MCV RO,-(SP) VE RO 
(1) 013550 017609 000002 MOV ap(SP), RO iGET te? OF ASCIZ STRING 
(1) 013554 122737 000001 001210 CMPB #APTENV, SENV 3sRUNNING 'N AP 
(1) 013562 001011 BNE 62$ 33NO0,GO CH ECK FOR APT CONSOLE 
(1) 013564 132737 000100 001211 BITB #APTSPOOL , SENVM +s SPOOL rot age} TO APT 
(1) 013572 001405 BEQ NO,GO CHECK FOR CONSOLE 
(1) 013574 010037 013604 MOV RO,61$ a: TUP MESSAGE ADDRESS FOR APT 
(1) 013600 004737 014976 JSR PC, SATY3 SPOOL MESSAGE TO APT 
(1) 013604 000000 61$: WORD 0 j IMESSAGE ADDRESS 
(1) 013606 132737 000040 001211 62S: BITB M#APTCSUP,SENVM ;;APT CON a SUPPRESSED 
(1) 013614 901003 BNE 3zYES,SKIP TYPE OUT 
(1) 013616 112046 2s: MOVB (RO) +,-(SP) oo. CHARACT ER TO BE TYPED ONTO STACK 
(1) 013620 001005 BNE 4$ 3BR IF IT ISN*T THE TERMINATOR 
(1) 013622 005726 TST (SP) + 331F a ag POP IT OFF THE STACK 
(1) 013624 012600 60S: MOV (SP)+,RO ESTORE R 
(1) 013626 062716 000002 3$: ADD #2, (SP) ZZADJUST RETURN PC 
(1) 013632 000002 RTI 3 sRETURN 
(1) 013634 122716 000011 4$: CMPB #HT, (SP) 33BRANCH IF <HT> 
(7) 013640 001430 BEQ 
(1) 013642 122716 000200 CMPB ACRLF , (SP) 3;BRANCH IF NOT <CRLF> 
(1) 013646 001006 BNE 
(1) 013650 005726 TST (SP)+ 48 <CR><LF> + ae 
(1) 013652 104401 TYPE 3: TYPE A CR AND L 
(1) 013654 001165 SCRLF 
(1) 013656 105037 014064 CLRB SCHARCNT ssLene CHARACTER a 
(1) 013662 000755 BR 2s 3GET_NEXT_CHARACTER 
(1) 013664 004737 013746 5$: JSR PC, STYPEC 7:G0 TYPE THIS CHARACTER 
(1) 013670 123726 001156 6$: CMPB SFILLC,(SP)+ e315 IT TIME a ee CHARS. ? 
(1) 013674 001350 BNE 2s 31F_NO GO GET HAR. 
$1 013676 013746 001154 MOV SNULL ,~(SP) $36Er 4 OF FILLER, CHARS. NEEDED 
(1) 013702 105366 000001 7$: DECB 1(SP) 3 :DOES A NULL NEED TO BE TYPED? 
(1) 013706 002770 BLT 6$ 33BR IF NO--GO POP THE NULL OFF OF STACK 
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CVDRCB DRV11J DIAG TST PRT1 —- MACY11 30G(1063) 10-AUG-81 10:58 PAGE 4-3 
CVDRCB.P11  10-AUG-81 10:51 TYPE ROUTINE SEQ 0054 
(1) 013710 737 013746 JSR PC, $TYPEC 3360 TYPE 4 NULL 
(1) 013714 105337 014064 DECB $CHARCNT ::D0 NOT COUNT AS A COUNT 
(1) 013720 000770 BR 7$ LOOP 
1) sHORIZONTAL TAB PROCESSOR 
(1) 013722 112716 000040 8$: MOVB = #"_ , (SP) s:REPLACE TAB WITH SPACE 
(1) 013726 004737 013746 9$: JSR PC,STYPEC 7: TYPE A SPACE 
(1) 013732 132737 000007 014064 BITB  #7.$CHARCNT BRANCH IF NOT AT 
(1) 013740 001372 BNE 9$ 7: TAB STOP 2 
(1) 013742 005726 TST (SP)+ ::POP SPACE OFF STACK 
(1) 013744 000724 BR 2$ t:GET NEXT CHARACTER 
(1) 013746 S$TYPEC: 
(1) 013746 105777 165172 TSTB = aSTKS z:CHAR IN KYBD BUFFER? :MJD001 
(1) 013752 100022 BPL 10$ ::BR IF NOT :MJDO01 
(1) 013754 017746 165166 MOV a$TKB,=(SP) :GET CHAR 7MJD001 
(1) 013760 042716 177600 BIC #177600,(SP) | ::STRIP EXTRANEOUS BITS 7MJD001 
(1) 013764 122716 000023 CMPB ss HSXOF F,, (SP) S:WAS CHAR XOFF [MJD001 
(1) 013770 001012 BNE 102$ 7:BR IF NOT 7MJD001 
(1) 013772 101$: [MJD001 
(1) 013772 105777 165146 TSTB = aSTKS ssWAIT FOR CHAR 7MJD001 
(1) 013776 100375 BPL 101$ =MJD001 
(1) 014 117716 165142 MOVB — a$TKB, (SP) ::GET CHAR :MJD001 
(1) 014004 042716 177600 BIC #177600,(SP) ::STRIP IT [MJD001 
(1) 014010 122716 000021 CMPR ss #S$XON,, (SP) 7:WAS IT XON? 7MJD001 
(1) 014014 001366 BNE 101$ 7:BR IF NOT 7MJD001 
(1) 014016 102$: [MJD001 
(1) 014016 005726 TST (SP)+ ruFIX STACK [MJD001 
(1) 014020 10$: f 34JD001 
(1) 014020 105777 165124 TSTB = aSTPS s;WAIT UNTIL PRINTER IS READY 
(1) 014024 100375 BPL 10$ 3MJD001 
(1) 014026 116677 000002 165116 MOVB  2(SP),a$TPB :;LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 014034 122766 000015 000002 CMPB ss CR, 2 SP) *:I$ CHARACTER A CARRIAGE RETURN? 
(1) 014042 001003 BNE BRANCH IF NO 
(1) 014044 105037 014064 CLRB  $CHARCNT 7: YES==CLEAR CHARACTER COUNT 
(1) 014050 000406 BR STYPEX TIEXIT 
(1) 014052 122766 000012 000002 15: CMPB ss LF, 2(SP) +:IS CHARACTER A LINE FEED? 
(1) 014060 001402 BEQ $TYPEX S:BRANCH IF YES 
(1) 014062 105227 INCB (PC) 4 *:COUNT THE CHARACTER 
(1) 014064 000000 SCHARCNT:.WORD 0 CHARACTER COUNT STORAGE 
(1) 014066 000207 STYPEX: RTS PC 
1738 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) Ld s RRA EEEEEEEEEREKERREKEEEEKEKEEERAERKEEKKRKKKAKEEREREE 
(1) 014070 112737 000001 014334 $ATY1: MOVB 4#1,$FFLG ::TO REPORT FATAL ERROR 
(1) 014076 112737 000001 014332 $ATY3: MOVB 4#1,$MFLG *:TO TYPE A MESSAGE 
(1) 014104 000403 BR SATYC 
(1 014106 112737 000001 014334 SATY4: MOVB  #1,$FFLG ::T0 ONLY REPORT FATAL ERROR 
(3) 014114 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 014116 010146 MOV R1.-(SP) PUSH R1 ON STACK 
(1) 014120 105737 014332 TSTB = $MFLG ::SHOULD TYPE A MESSAGE? 
(1) 014124 001450 BEQ 55 [:IF NOT: BR 
(1) 014126 122737 000001 001210 CMPB  #APTENV,SENV :: OPERATING UNDER APT? 
(1) 014134 001031 BNE 3$ *:IF NOT: BR 


» 
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( 
CVDRCB.P11 10-AUG-81 10:51 T COMMUNICATIONS ROUTINE SEQ 0055 ( 
(1) 0146136 132737 000100 001211 BITB §§ #APTSPOOL,SENVM ;;SHOULD SPOOL MESSAGES? / 
(1) 014144 001425 BEQ t:1F NOT: f 
(1) 014146 017600 000004 MOV a4(SP),RO +:GET MESSAGE ADDR. i 
(1) 014152 062766 000002 000004 ADD #2,4(SP) 33 ETURN ADDR. | 
(1) 014160 005737 001170 1$: TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? | 
(1) 014164 001375 BNE 1 t:IF NOT: WAIT | 
(1) 014166 010037 001204 MOV RO, $MSGAD +:PUT ADDR IN MAILBOX | 
(1) 014172 105720 2$: TSTB. = (RO) + ‘FIND END OF MESSAGE | 
(1) 014174 001376 BNE $ | 
(1) 014176 163700 001204 SUB SMSGAD,RO ::SUB START OF MESSAGE | 
(1) 014202 006200 ASR RO *:GET MESSAGE LNGTH IN WORDS | 
(1) 014206 010037 001206 MOV RO, $MSGLGT *:PUT LENGTH IN MAILBOX | 
(1) 014210 012737 000004 001170 MOV #4, $MSGTYPE *:TELL APT TO TAKE MSG. | 
(1) 014216 000413 BR | 
(1) 014220 017637 000004 014244 3$: MOV a4(SP),4$ :z;PUT MSG ADDR IN JSR LINKAGE | 
(1) 014226 062766 000002 000004 ADD #2,4(SP) -:BUMP RETURN ADDRESS 
(3) 014234 013746 177776 MOV 177776, =(SP) :zPUSH 177776 ON STACK | 
(1) 014240 004737 013534 JSR PC, $TYPE t:CALL TYPE MACRO ! 
(1) 014244 000000 4$: WORD 
(1) 014246 5$: 
(1) 014246 105737 014334 10$: TSTB  $FFLG z:SHOULD REPORT FATAL ERROR? 
(1) 014252 001416 BEQ 12$ s:IF NOT: BR 
(1) 014254 005737 001210 TST SENV + RUNNING UNDER APT? | 
(1) 014260 001413 BEQ 12$ ti IF NOT: 
(1) 014262 005737 001170 11$: TST SMSGTYPE +: FINISHED LAST MESSAGE? | 
(1) 014266 001375 BNE t:IF NOT: WAIT 
(1) 014270 017637 000004 001172 MOV a4(SP),$FATAL ;:;GET ERROR # | 
(1) 014276 062766 000002 000004 ADD #2,4(SP) ::BUMP RETURN ADDR. 
(1) 014304 005237 001170 INC SMSGTYPE z:TELL APT TO TAKE ERROR | 
(1) 014310 105037 014334 12$:  CLRB  $FFLG S:CLEAR FATAL FLAG | 
(1) 014314 105037 014333 CLRB = $LFLG *:CLEAR LOG FLAG 
(1) 014320 105037 014332 CLRB = $MFLG *:CLEAR MESSAGE FLAG 
(3) 01432 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 014326 012600 MOV (SP)+,RO +:POP STACK INTO RO 
(1) 014330 000207 RTS + :RETURN 
(1) 014332 000 SMFLG: .BYTE 0 *:MESSS. FLAG 
(1) 014333 000 SLFLG: .S5YTE 0 sib 
(1) 014334 000 SFFLG: .BYTE 0 t:FATAL FLAG 
(1) 014336 “EVEN 
(1) 000200 APTSIZE=200 
(1) 000001 TENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 TCSUP=04 
1736 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) J LEAR ARARARRERARERERERERERERERERAAEEARERERREEREREERREEERRERERERERER 
(1) **THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) S*OCTAL (ASCII) NUMBER AND TYPE IT. 
(1) i s$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
(1) 3* MOV NUM, =(SP) : NUMBER TO BE TYPED 
(1) * TYPOS *:CALL FOR TYPEOUT 
(1) 3* .BYTE N ‘:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) 3 “BYTE MM +:M=1 OR 
(1) te ::1=TYPE LEADING ZEROS 
(1) 3* *:0=SUPPRESS LEADING ZEROS 
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CVDRCB.P11 10-AUG=81 10 NARY TO OCTAL (ASCII) AND TYPE SEQ 0056 


3* 
: *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


(1) : 
a) :*$TYPOS OR $TYPOC 
(1) 3*CALL: 
(1) ie MOV NUM, =(SP) s;NUMBER TO BE TYPED 
C1 i TYPON S:CALL FOR TYPEOUT 

3@ 
(1) i #$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

7* : 
(1) te MOV NUM, =(SP) y:NUMBER TO BE TYPED 
(1) 7* TYPOC +:CALL FOR TYPEOUT 
(1) 014336 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
(1) 0146342 116637 000001 014561 MOVB 1(SP),$OFILL § ;:LOAD ZERO FILL SWITCH 
(1) 0146350 112637 014563 MOVB P)+°$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
(1) 014354 062716 000002 ADD #2, (SP) :: ADJUST RETURN ADDRESS 
(1) 014360 000406 BR $TYPON 
(1) 014362 112737 000001 014561 S$TYPOC: MOVB 4#1,S9FILL z:SET THE ZERO FILL SWITCH 
(1) 014370 112737 000006 014563 MOVB #6,$OMODE+1 t:SET FOR SIX(6) DIGITS 
(1) 014376 112737 000005 014560 STYPON: MOVB 4#5,$0CNT S:SET THE ITERATION COUNT 
(1) 014404 010346 MOV R3,-(SP) TISAVE R3 
(1) 014406 010446 MOV R4,-(SP) TISAVE R4 
(1) 014410 010546 MOV R5,-(SP) +:SAVE R 
(1) 014412 113704 014563 MOVB  $OMODE+1,R4 +:GET THE NUMBER OF DIGITS TO TYPE 
(1) 014416 005404 NEG R4 
(1) 014420 062704 000006 ADD #6,R4 :;SUBTRACT IT FOR MAX. ALLOWED 
(1) 014424 110437 014562 MOVB = R4. SOMODE [:SAVE IT FOR USE 
(1) 014430 113704 014561 MOVB $OFILL,R4 *:GET THE ZERO FILL SWITCH 
(1) 014434 016605 000012 MOV 12(SP) .R5 ::PICKUP THE INPUT NUMBER 
(1) 014440 005003 CLR R3 S:CLEAR THE OUTPUT WORD 
(1) 014442 006105 1$ ROL R5 ::ROTATE MSB INTO “'C'' 
(1) 014444 000404 BR 3$ +:G0 DO MSB 
(1) 014446 006105 2$: ROL RS t:FORM THIS DIGIT 
(1) 014450 006105 ROL RS 
(1) 014452 006105 ROL RS 
(1) 014454 010503 MOV R5,R3 
(1) 014456 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
(1) 014460 105337 014562 DECB $OMODE +: TYPE THIS DIGIT? 
(1) 014464 100016 BPL ::BR IF NO 
(1) 014466 042703 177770 BIC #177770,R3 t:GET RID OF JUNK 
(1) 014472 001002 BNE 4$ get FOR 
(1) 014474 005704 TST RG + SUPPRESS THIS 0? 
(1) 014476 001403 BEQ 5$ ':BR IF YES 
(1) 014500 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0°S 
(1) 014502 052703 000060 BIS #°0,R3 S:MAKE THIS DIGIT ASCII 
(1) 014506 052703 000040 5$: BIS a °R3 T:MAKE ASCII IF NOT ALREADY 
(1) 014512 110337 014556 MOVB = R33 8S *:SAVE FOR TYPING 
(1) 014516 104401 014556 TYPE 8 2:60 TYPE THIS DIGIT 
(1) 014522 105337 014560 7$: DECB  ©=-«s S$OCNT ::COUNT BY 
(1) 014526 003347 BGT 2$ +:BR IF MORE TO DO 
(1) 014530 002402 BLT 6$ 3: 
(1) 014532 005204 INC R4 +: INSURE LAST DIGIT ISN'T A BLANK 
(1) 014534 000744 BR 2$ +:G0 DO THE LAST DIGIT 
(1) 014536 012605 6$: MOV (SP)+,R5 S:RESTORE RS 
(1) 014540 012604 MOV (SP)+,R4 S:RESTORE R4 
(1) 014542 012603 MOV (SP)+,R3 * RESTORE R3 
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Y TO OCTAL (ASCII) AND TYPE SEQ 0057 


MOV 2(SP) ,4(SP) 33SET THE STACK FOR RETURNING 


MOV (SP)+, (SP) 
RTI 3RETURN 
8$: BYTE 0 : ESTORAGE FOR ASCII DIGIT 
B 0 hh ager} FOR TYPE ROUTINE 
CNT: .BYTE 0 oh te DIGIT COUNTER 
SOFTLL: a. 0 33ZERO FILL SWITCH 
SOMODE : 0 ;ZNUMBER OF DIGITS TO TYPE 
-SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 


net em gen mete ge Ee Bremen a ne ae 

TR THIS ROUTINE IS USED TO CHANGE A eet BINARY NUMBER TO A 5-DIGIT 
7*SIGNED DECIMAL (ASCII) NUMBER AND TYPE It oe at oN OUHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
*REPLACED WITH SPACES. 


*CALL 
3% MOV NUM, =(SP) 3;PUT THE BINARY NUMBER ON THE STACK 
ie TYPDS 7:G0 TO THE ROUTINE 
STYPDS: 
MOV R0,=(SP) ::PUSH RO ON STACK 
MOV R1.=(SP) +:PUSH R1 ON STACK 
MOV R2,-(SP) +:PUSH R2 ON STACK 
MOV R3,-(SP) +:PUSH R3 ON STACK 
MOV R5.-(SP) : :PUSH R5 ON STA 
MOV #20200,-(SP)  32SET BLANK SuITCH AND SIGN 
MOV 20(SP) .R5 °:GET THE INPUT NUMBER 
BPL 1$ [:BR IF INPUT OS. 
NEG R5 MAKE THE BINARY NUMBER POS. 
MOVB = # "=, 1( SP) S:MAKE THE ASCII NUMBER NEG. 
1$: CLR RO 33 ZERO THE CONSTANTS INDEX 
MOV #SDBLK,R3 SSETUP THE OUTPUT POINTER 
MOVB so #*:-, (R3)+ *:SET THE FIRST CHARACTER TO A BLANK 
2$: CLR R2 T:CLEAR THE BCD NUMBER 
MOV $DTBL (RO) ,R1 :3GET THE CONSTANT 
3$: SUB R1,R5 FORM THIS BCD DIGIT 
BLT 4$ BR 
INC Re : eR REASE THE BCD DIGIT BY 1 
4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
TST R2 T:CHECK IF BCD DIGIT=0 
BNE 54 ::FALL THROUGH IF 0 
TSTB =: ¢ SP) i STILL DOING LEADING 0°S? 
BMI 7$ [:BR IF YES 
5$: ASLB = (SP) 3 sMSD? 
BCC 6$ ‘BR IF NO 
MOV8  1(SP).-1(R3) 2: YES=~SET THE SIGN 
6$: BIS #'0,R2 + IMAKE THE BED DIGIT ASCII 
7$: BIS y “Re +:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB _—R2, (R3)+ t:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO)+ +: JUST INCREMENTING 
CMP RO,#10 +: CHECK THE TABLE INDEX 
BLT 2$ #360 DO THE NEXT DIGIT 
BGT 8$ 0 EXIT 
MOV R5,R2 <i Ger THE LSD 
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CVDRCB.P11 10-AUG-81 10:51 NVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0058 


(1) 014722 000764 BR 6$ 3:G0 CHANGE TO ASCII 

(1) 014724 105726 8$: TSTB 3s (SP) + 33WAS THE LSD THE FIRST NON-ZERO? 
(1) 014726 100003 BPL IF NO 

(1) 014730 116663 177777 177776 MOVB = 1 (SP) ,=2(R3) +t YES=-SET THE SIGN FOR TYPING 
(1) 014736 10501 9 CLRB —s (R3) iiSET THE TERMINATOR 

(3) 014740 012605 MOV (SP)+,R5 :;POP STACK INTO RS 

(3) 014742 012603 MOV (SP)+.R3 +:POP STACK INTO R3 

(3) 014744 012602 MOV (SP) +,R2 t:POP STACK INTO R2 

(3) 014746 012601 MOV (SP)+,R1 :3POP STACK INTO R1 

(3) 014750 012600 MOV (SP)+,RO : sPOP eK INTO RO 

(1) 014752 104401 015000 TYPE $DBLK “NOW TYPE THE NUMBER 

(1) 014756 016666 000002 000004 MOV 5(SP) ,4(SP) + TADJUST THE STACK 

(1) 014764 012616 MOV (SP)+, (SP) 

(1) 014766 000002 RTI ;;RETURN TO USER 

(1) 014770 023420 $DTBL: 10000. 

(1) 014772 001750 1000. J 

(1) 014774 0001 100. 

(1) 014776 000012 : 

(1) 015 000004 $SDBLK: .BLKW 4 

738 .SBTTL ERROR HANDLER ROUTINE 

(2) FERRARA EREREREREEREREREREERAERRRERERERAEARERRRRRERRRERRRERER ES 
(1) SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
at} z0SAVE THE ERROR ee AND THE ADDRESS OF THE ERROR CALL 
(1) ;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) »*SW15=1 N ER 

(1) ;*SW13=1 WATenT ERROR TYPEOUTS 

(1) *SWwO09=1 LOOP ON ERROR 

(1) + eCALL 

Ah ie ERROR WN 7 ERROR=EMT AND N=ERROR ITEM NUMBER 

(1) 015010 SERROR: 

(1) 015010 104407 CKSWR TEST FOR CHANGE IN SOFT-SWR 

(2) 015012 104407 CKSWR 60 Look’ FOR SWR CHANGE 

(1) 015014 105237 001103 7$: INCB  $ERFLG iiSET THE ERROR FLAG 

(1) 015020 001775 BEQ 7$ ON'T LET THE FLAG GO TO ZERO 
(1) 015022 013777 001102 164112 MOV S$TSTNM, @DISPLAY $EDISPLAY TEST NUMBER AND ERROR FLAG 
(1) 015030 005237 001112 INC SERTTL SINC THE ERROR COUNT 

(1) 015034 011637 001116 MOV (SP) , SERRPC tIGET ADDRESS OF ERROR INSTRUCTION 
(1) 015040 162737 000002 001116 SUB #2, 

(1) 015046 117737 164044 001114 MOVB  aSERRPC,$ITEMB :;:STRIP AND SAVE THE ERROR ITEM CODE 
(1) 015054 032777 020000 164056 BIT #B1T13,aSWR 33SKIP TYPEOUT IF SET 

(1) 015062 001004 BNE 20$ *SKIP TYPEOUTS 

(1) 015064 004737 015164 JSR PC, SWRCK 2260 TO USER ERROR ROUTINE 

(1) 015070 104401 001165 TYPE  ,$CRLF 

(1) 015074 20S: 

(1) 015074 122737 000001 001210 CMPB  W#APTENV,SENV =; ;RUNNING IN APT MODE 

(1) 015102 001007 BNE 2$ 3:NO, SKIP APT ERROR REPORT 

(1) 015104 113737 001114 015116 MOVB SITEMB. 218 >SET ITEM NUMBER AS ERROR NUMBER 
(1) 015112 004737 014106 JSR PC, SAT * REPORT FATAL ERROR TO APT 

(1) 015116 000 21$: .BYTE 0 

(1) 01511 000 “BYTE 0 

(1) 015120 000777 22$: BR 22$ ; APT ERROR LOOP 

(1) 015122 005777 164012 2$: TST aSWR SHALT ON ERROR 

(1) 015126 100002 BPL 3$ +S SKIP IF CONTINUE 
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CVDRCB.P11 | 10-AUG-81 10:51 ERROR HANDLER ROUTINE SEQ 0059 
(1) 015130 000000 HALT HALT ON RROR! 
(1) 015132 104407 CKSWR iTEST FOR CHANGE IN SOFT=SWR 
(1) 015134 032777 001000 163776 3S: BIT #B1T09,aSWR LOOP -0N ERROR SWITCH SET? 
(1) 015142 001402 BEQ 
(1) 015144 015716 001110 MOV S$LPERR, (SP) z2BR JE RETURN FOR LOOPING 
(1) 015150 005737 001162 4$: TST SESCAPE 33 CHECK FOR AN ESCAPE ADDRESS 
(1) 015154 001402 BEQ 5 ‘BR IF NONE 
C1) 013156 013716 001162 - MOV SESCAPE,(SP)  ?:FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 015162 000002 RTI + sRETURN 
1759 "1, "7 "Re en 
1760 :60 TYPE ERROR 
1761 :60 UPDATE SOFTWARE SWR IF ‘CNTRL/G' 
1762 ERR ERE EEREREEREREREERRRREREREREEREERERERREREEEREEREEE 
176% 015164 113737 001102 001362 SWRCK: MOVB | $TSTNM,TSTNUM ;SET UP TEST # ON ER 
1764 015172 004737 015202 JSR PC, $ERRTYP 760 TYPE ERROR 
1765 015176 104407 CKSWR *GO LOOK FOR SWR CHANGE 
1766 015200 000207 RTS PC SRETURN TO ERROR HANDLER 
1767 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) FERRARA RRERREREREREREREREREREREREERERERERRERREREREREREEREE 
(1) i STHIS ROUTINE USES THE "ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
(1) :*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE'’ (SERRTB), 
C1) :®AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 015202 SERRTYP: : s 
(1) 015202 104401 001165 TYPE  ,$CRL zs''CARRIAGE RETURN’ & "LINE FEED 
(1) 015206 010046 MOV RO, RSP) +S SAV 
(1) 015210 005000 CLR RO *:PICKUP THE ITEM INDEX 
(1) 015212 153700 001114 BISB  a#SITEMB,RO 
(1) 015216 001004 BNE 1$ ::1F ITEM NUMBER IS ZERO, JUST 
(1) ‘TYPE THE PC OF THE ERROR 
(2) 015220 013746 001116 MOV SERRPC.-(SP) 2 :SAVE SERRPC FOR TYPEOUT 
(2) Z3ERROR ADDRESS 
(2) 015224 104402 TYPOC 3360 TYPE=-OCTAL ASCIICALL DIGITS) 
(1) 015226 000426 BR 6$ 
(1) 015230 005300 1$: DEC RO 3 TADJUST THE INDEX SO THAT IT WILL 
(1) 015232 006300 ASL RO 3 WORK FOR THE ERROR TABLE 
(1) 015234 006300 ASL RO 
(1) 015236 0063 ASL RO 
(1) 015240 062700 001252 ADD #SERRTB,RO ::FORM TABLE POINTER 
(1) 015244 012037 015254 MOV (RO)+,2$ t:PICKUP “ERROR MESSAGE" POINTER 
(1) 015250 001404 BEQ 3:SKIP TYPEOUT IF NO POINTER 
(1) 015252 104401 TYPE 3: TYPE THE “ERROR MESSAGE” 
(1) 015254 000000 2$: ,WORD 0 2S ERROR | MESSAGE"’ POIN NTER Goes HERE 
(1) 015256 104401 001165 TYPE  ,S$CRLF iE CARRIA GE RETURN'' & “LINE FEED™ 
(1) 015262 012037 015272 3$: V (RO) +,4$ ::PICKUP ‘DATA HEADER’ POINTER 
(1) 015266 001404 BEQ 5$ ::SKIP TYPEOUT IF 
(1) 015270 104401 TYPE :TTYPE | THE DATA HEADER" 
(1) 015272 000000 4$: .WORD 0 2" DAT A'HEADER” POINTER GOES, HERE 
(1) 015274 104401 001165 TYPE ,$CRLF Z3'CARRIAGE RETURN" & "LINE FEED" 
(1) 015300 011000 5$: MOV (RO) ,RO *PICKUP "DATA TABLE’ POINTER 
(1) 015302 001004 BNE A 3360 TYPE THE DATA 
(1) 015304 012600 6$: MOV (SP)+,RO ORE RO 
(1) 015306 104401 001165 TYPE  ,$CRLF tI "CARRIAGE RETURN’ & “LINE FEED" 
(1) 015312 000207 RTS PC +S RETURN 
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CVDRCB DRV11J DIAG TST PRT1 

CVDRCB.P11 10=AUG=81 10:51 ERROR MESSAGE TYPEOUT ROUTINE 
(1) 015314 7$: 
(2) 015314 01304 MOV a(RO)+,-(SP)  ;;SAVE a(RO)+ FOR TYPEOUT 
(2) 015316 10440 TYPOC *:G0 TYPE=-OCTAL ASCII CALL DIGITS) 
(1) 015320 005710 TST (RO) 3318 THERE ANOTHER NUMBER 
(1) 015322 001770 BEQ As BR IF 
(1) 015324 104401 015332 TYPE 8$ +: TYPE Two(2) SPACES 
(1) 015330 000771 BR $ +: LOOP 
(1) 015332 020040 000 8$: VASCIZ / / +:TWO(2) SPACES 
(1) 015336 EVEN 

1768 .SBTTL SCOPE HANDLER ROUTINE 

(2) ee eee eee nena ae ones ae tans coreeenl 
(1) tSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) :*AND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15: 08> 
(1) ; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE 
(1) 2 *SW14=1 LOOP ON TEST 
(1) :*SW11=1 UNHIBIT ITERATIONS 
(1) :*SWO9= LOOP ON ERROR 
(1) *SWO08=1 LOOP ON TEST IN SWR<7:0> 
(1) *CALL 
; 1? 3* SCOPE :;SCOPE=I0T 
(1) 015336 SSCOPE: 
(1) 015336 104407 CKSWR z;TEST FOR CHANGE IN SOFT-SWR 
(1) 015340 032777 040000 163572 1S: BIT #BI1T14,aSWR ;LOOP ON PRESENT TEST? 
(1) 015346 001114 BNE OV IF SW14=1 
(1) :HAAANSTART OF CODE FOR THE XOR TESTERAANAR nee 
(1) 015350 000416 $XTSTR: BR 6$ z31F RUNNIN NG ON THE ‘‘XOR’’ TESTER CHANGE 
(1) +: THIS INSTRUCTION. TO A "NOP’' (NOP=240) 
(1) 015352 013746 000004 MOV a#ERRVEC,-(SP) $ESAVE THE CONTENTS OF THE ERROR” VECTOR 
(1) 015356 012737 015376 000004 MOV W5S,QMERRVEC = 33SET FOR TIMEOUT 
(1) 015364 005737 177060 TST ar ON XOR? 
(1) 015370 012637 000004 MOV (SP) +, a#ERRVEC ; TRESTORE THE ERROR VECTOR 
(1) 015374 000463 BR $SVLAD 7:60 TO THE NEXT TE 
(1) 015376 022626 5$: CMP (SP) +, (SP)+ +:CLEAR THE STACK AFTER A TIME OUT 
(1) 015400 012637 000004 MOV (SP) +, a#ERRVEC ; URESTORE THE ERROR VECTOR 
(1) 015404 000423 BR 7$ LOOP ON THE PRESENT TEST 
(1) 015406 6$:;MMMAMEND OF CODE FOR THE XOR- *TESTERMAAE 
(1) 015406 032777 000400 162524 BIT #B81T08,aSWR LOOP oN SPEC. TEST? 
(1) 015414 001404 BEQ 3; NO 
(1) 015416 127737 163516 001102 CMPB = aSWR, STSTNM 330N THE RIGHT TEST? — SwR<7:0> 
(1) 015424 001465 BEQ SOVER [:BR IF YES 
(1) 015426 105737 001103 2$: TSTB = $ERFLG HAS AN ERROR OCCURRED? 
(1) 015432 007421 BEG 3 tigR IF NO 
(1) 015434 123737 001115 001103 CMPB SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 015442 101015 BHI 3$ [:BR IF NO 
(1) 015444 032777 001000 163466 BIT #BITO9, aSWR 33LOOP_ON ERROR? 
(1) 015452 001404 BEQ ‘BR IF NO 
(1) 015454 013737 001110 001106 7$: MOV SLPERR,S$SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(1) 015462 000446 BR SOVER 
(1) 015464 105037 001103 4$: CLRB = SERFLG r2 ZERO THE ERROR FLAG 
(1) 015470 005037 001160 CLR STIMES *: CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 015474 000415 BR 1$ : ESCAPE TO THE NEXT TEST 
(1) 015476 032777 004000 163434 3S: BIT #B1T11,aSWR 33INHIBIT ITERATIONS? 
(1) 015504 001011 BNE 1$ °:BR IF YES 
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CVDRCB.P11 | 10-AUG-81 10:51 SCOPE HANDLER ROUTINE 
(1) 015506 005737 001176 TST $PASS iiIF FIRST PASS OF PROGRAM 
(1) 0155'2 0014 BEQ 1$ INHIBIT ITERATIONS 
(1) 015514 005237 001104 INC SICNT i TINCREMENT ITERATION COUNT 
(1) 015520 023737 001160 001104 CMP STIMES,SICNT $3 CHECK THE NUMBER OF ITERATIONS MADE 
(1) 015526 002024 BGE SOVER *BR IF MORE ITERATION REQUIRED 
(1) 015530 012737 000001 001104 18: MOV #1,$ICNT j REINITIALIZE THE ITERATION COUNTER 
(1) 015536 013737 015614 001160 MOV SMXCNT ,STIMES 33SET NUMBER OF ITERATIONS TO DO 
(1) 015544 105237 001102 $SVLAD: INCB  $TSTNM +: COUNT TEST NUMBE 
(1) 015550 113737 001102 001174 MOVB STSTNM. STESTN *:SET TEST NUMBER IN APT MAILBOX 
(1) 015556 011637 001106 MOV (SP), $LP. 7:SAVE SCOPE LOOP ADDRESS 
(1) 015562 011637 001110 MOV (SP); +t OERR ?:SAVE ERROR LOOP ADDRESS 
(1) 015566 005037 001162 CLR SESCAPE 33CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 015572 112737 900001 001115 - MOVB  #1,$ERMAX SONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 015600 013777 001102 163334 SOVER: MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER 
(1) 015606 013716 001106 MOV SLPADR, (SP) ;3FUDGE RETURN ADDRESS 
(1) 015612 000002 RTI SSFIXES PS 
(1) 015614 000062 SMXCNT: 50. MAX. NUMBER OF ITERATIONS 
1769 .SBITL. TTY INPUT ROUTINE 
(2) SRR EEEERAEREREERRERRAERERERRERERRERRERRREREREREREREERE ES 
(1) *ENABL LSB 
(2) SRRRERERERERERERERERRERERERERREREREEERERERERREREERERERARRERRRERE 
(1) TSSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) **ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 
(1) i sSERVICE THE TEST FOR CHANGE IN N SOF TUARE SuiTcH REGISTER TRAP CALL 
(1) i sWHEN N OPERATING IN TTY FLAG MODE. 
(1) 015616 022737 000176 001140 $ckS #SWREG, SWR 331$ THE SOFT-SWR SELECTED? 
(1) 015624 001074 NE 15$ cH IF NO 
(1) 015626 105777 163312 TSTB  aSTKS ZEQHAR T HERE? 
(1) 015632 100071 BPL 15$ 731F NO, DON'T WAIT AROUND 
(1) 015634 117746 163306 MOVB = a$TKB,-(SP) [SAVE THE CHAR 
(1) 015640 042716 177600 BIC cit (SP) + ISTRIP-OFF THE Asc 
(1) 015644 022726 000007 CMP SP5+ t:1S IT A CONTROL G 
(1) 015650 001062 BNE ates 33NO, RETURN TO SER 
(1) 015652 123727 001134 000001 CMPB = $AUTOB, #1 : WE RUNNING IN AUTO-MODE? 
(1) 015 001456 BEQ 15$ ‘BRANCH IF YES 
(1) 015662 104401 016353 TYPE  ,$CNTLG i sECHO THE CONTROL=G (*G) 
(1) 015666 104401 016360 SGTSWR: TYPE  ‘S$MSWR +: TYPE CURRENT CONTENTS 
(2) 015672 013746 000176 MOV SWREG,~(SP) i 3SAV VE SWREG FOR TYPEOU 
(2) 015676 104402 TYPOC 0 TyPE--OCTAL ASCIICAI* DIGITS) 
(1) 015700 104401 016371 TYPE ,$MNEW + PROMPT FOR Nit SWR 
(1) 015704 005046 19$: CLR =(SP) TI CLEAR COUNTER” 
(1) 015706 005046 CLR (SP) >: THE NEW SWR 
(1) 015710 105777 163230 7$: TSTB ss @$TKS *:CHAR THERE? 
(1) 015714 100375 BPL 7$ t:IF NOT TRY AGAIN 
(1) 015716 117746 163224 MOVB = a$TKB, ~(SP) ::PICK UP CHAR 
(1) 015722 042716 177600 BIC #°C177, (SP) +:MAKE IT 7-BIT ASCII 
(1) 
(1) 015726 021627 000025 9$: CMP (SP) ,#25 3318 IT A CONTROL-U? 
(1) 015732 001005 BNE 10$ ‘BRANCH IF NOT 
(1) 015734 104401 016346 TYPE  ,$CNTLU +:YES, ECHO CONTROL=U (*U) 
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CVDRCB.P11  10-AUG=81 10:51 TTY INPUT ROUTINE SEQ 0062 
(1) 015740. 062706 000006 20$: ADD #6,SP sz IGNORE PREVIOUS INPUT 
1) 015744 00075 BR 19$ t:LET'S TRY IT AGAIN 
(1) 
(1) 015746 021627 000015 10$: CMP (SP) #15 zs1S IT A <CR>? 
(1) 015752 901022 BNE 16$ BRANCH IF NO 
(1) 015754 005766 000004 TST 4(SP) T:YES, IS IT THE FIRST CHAR? 
(1) 015760 001403 BEQ 11$ :BRANCH IF YES 
(1) 015762 016677 000002 163150 MOV 2(SP) ,a@SWR *:SAVE NEW SWR 
(1) 015770 062706 000006 11$: ADD #6,SP *:CLEAR UP STACK 
(1) 015774 104401 001165 14$: TYPE S$CRLF *:ECHO <CR> AND <LF> 
(1) 016000 123727 001135 000001 CMPB ss $INTAG,, #1 ::RE-ENABLE TTY KBD INTERRUPTS? 
(1) 016006 001003 BNE ?:BRANCH IF N 
(1) 016010 012777 000100 163126 MOV #100, a$TKS RE-ENABLE TTY KBD INTERRUPTS 
(1) 016016 000002 15$: RTI + :RETURN 
(1) 016020 004737 013746 16$: JSR PC, $TYPEC +:ECHO CHAR 
(1) 016024 021627 000060 CMP (SP) ,#60 s:CHAR < 0? 
(1) 016030 002420 BLT $ BRANCH IF YES 
(1) 016032 021627 000067 CMP (SP) ,#67 *:CHAR > 7? 
(1) 016036 003015 BGT BRANCH IF YES 
(1) 016040 042726 000060 BIC #60, (SP)+ t:STRIP=OFF ASCII 
(1) 016044 005766 000002 TT 2(SP) t:1S THIS THE FIRST CHAR 
(1) 016050 001403 BEQ 17$ BRANCH IF YES 
(1) 016052 006316 ASL (SP) [:NO, SHIFT PRESENT 
(1) 016054 006316 ASL (SP) +: ‘CHAR OVER TO MAKE 
(1) 016056 006316 ASL (SP) => ROOM FOR NEW ONE. 
(1) 016060 005266 000002 17$: ‘INC 2(SP) T:KEEP COUNT OF C 
(1) 016064 056616 177776 BIS =2(SP), (SP) ::SET IN NEW CHAR 
(1) 016070 000707 BR *:GET THE NEXT ONE 
(i) 016072 104401 001164 18$: TYPE SQUES +: TYPE 2<CR><LF> 
(1) 016076 000720 BR 30$ +:SIMULATE CONTROL-U 
(1) .DSABL LSB 
tt 
(2) FERRARA ERE RRRREEREEEEREREREREREREREREERRERERERREREREERRREE 
C1) i THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
2* : 
(1) te RDCHR s:INPUT A SINGLE CHARACTER FROM THE TTY 
(1) te RETURN HERE +: CHARACTER IS ON THE STACK 
(1) * ::WITH PARITY BIT STRIPPED OFF 
(1) ‘ 
(1) 016100 011646 SRDCHR: MOV (SP) ,=(SP) :;PUSH DOWN THE PC 
(1) 016102 016666 000004 000002 MOV 4(SP5 ,2(SP) *:SAVE THE PS 
(1) 016110 105777 163030 1S: TSTB = a$STKS S:WAIT FOR , 
(1) 016114 100375 BPL 1$ 2A CHARACTER 
(1) 016116 117766 163024 000004 MOVB  a$TKB,4(SP) 3;READ THE TTY 
(1) 016124 042766 177600 000004 BIC #°C<177>,4(SP) 3:GET RID OF JUNK IF ANY 
(1) 016132 026627 000004 000023 CMP 4(SP) ,#23 2:1S IT A CONTROLS? 
(1) 016140 001013 BNE 3$ BRANCH IF NO 
(1) 016142 105777 162776 2$: TSTB = ASTKS :WAIT FOR A CHARACTER 
(1) 016146 100375 BPL 2$ +:LOOP UNTIL ITS THERE 
(1) 016150 117746 162772 MOVB asTkB -(SP) *:GET CHARACTER 
(1) 016154 042716 177600 BIC #°C177, (SP) *:MAKE IT 7-BIT ASCII 
(1) 016160 022627 000021 CMP (SP)+,#21 t:1S IT A CONTROL-0? 
(1) 016164 001366 BNE 2$ SSF NOT DISCARD IT 
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CVDRCB DRV11J DIAG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 Y INPUT ROUTINE SEQ 0063 
(1) 016166 000750 BR 1$ ::YES, RESUME 
(1) 9:6170 026627 000004 000021 3$: CMP 4 (SP) ,#$XON t:1§ IT A RANDOM XON? :RANOO1 
(1) 016176 001744 BEQ 1$ :7BRANCH IF YES *RANOO1 
(1) 016200 026627 000004 000140 CMP 4(SP) ,#140 ‘1S IT UPPER CASE? 
(1) 016206 002407 BLT + :BRANCH 
(1) 016210 026627 000004 000175 CMP 4(SP) ,#175 tHIS IT A SPECIAL CHAR? 
(1) 016216 003003 BGT 4$ 3 BRAN CH 
(1) 016220 042766 000040 000004 BIC #40,4(SP) MAKE IT UPPER CASE 
(1) 016226 000002 4$: RTI +:GO BACK TO USER 
(2) SPE TerrErTTTeCTTTTeTTTTTTitietrrirrrrritiret reece 
N} gSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
3* : 
(1) st RDLIN sz INPUT A STRING FROM THE TTY 
(1) 3* RETURN HERE szADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
413 3* sz TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 016230 010346 SRDLIN: MOV R3,-(SP) ZSAVE R3 
(1) 016232 012703 016336 1$: MOV #STTYIN,R3 SIGET ADDRESS 
(1) 016236 022703 016346 2$: CMP #STTYINGS. ,R3 3 sBUFFER FULL? 
(1) 016242 101405 BLOS 4$ ‘BR IF YES 
(1) 016244 104410 RDCHR 2260 READ ONE CHARACTER FROM THE TTY 
(1) 016246 112613 MOVB (sP)+, (R3) *:GET CHARACTER 
(1) 016250 122713 000177 10$:  CMPB , (R3) t:1$ IT A RUBOUT 
(1) 016254 001003 BNE 23 SK P IF NOT 
(1) 016256 104401 001164 4$: TYPE $QUES STYPE A 
(1) 016262 000763 BR tICLEAR THE BUFFER AND LOOP 
(1) 016264 111337 016334 3$: MOVB _— (R3),9$ +:ECHO THE CHARACTER 
(1) 016270 104401 016334 ‘iL. ke oe 
(1) 016274 122723 000015 CMPB Ss #15, (R3)+ i 3 CHECK FOR RETURN 
(1) 016300 001356 BNE 2$ 33LOOP IF NOT RETURN 
(1) 016302 105063 177777 CLRB  =s- = 1(R3) *CLEAR RETURN (THE 15) 
(1) 016306 104401 001166 TYPE ,$LF 33 TYPE A LINE FEED 
(1) 016312 012603 MOV (SP)+,R3 3 ORE AS 
(1) 016314 011646 MOV (SP) ,-(SP) 3 ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 016316 016666 000004 000002 MOV 4(SP) ,2(SP) ts FIRST ASCII CHARACTER ON IT 
(1) 016324 012766 016336 000004 MOV #STTYIN,4(SP) 
(1) 016332 000002 RTI : :RETURN 
(1) 016334 000 9S: .BYTE 0 *:STORAGE FOR ASCII CHAR. TO TYPE 
(1) 016335 000 eBYTE O eT 
(1) 016336 000010 STTYIN: .BLKB 8. ;:RESERVE 8 BYTES FOR TTY INPUT 
(1) 016346 052536 005015 000 S$CNTLU: .ASCIZ /*U/<15><12> 3 CONTROL so 
(1) 016353 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12> ‘CONTROL "'G'’ 
(1) 016360 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = /" 
(1) 016371 047040 053505 $MNEW: .ASCIZ / NEW = / 
170 ~SBTTL POWER DOWN AND UP ROUTINES 
(2) AAA AAAAEKEEKEKEREREREEEEEEEEEAEREEKEEEEEKEEKEKREKEEEEEEEEKEEEEK 
(1) “POWER DOWN ROUTIN NE 
(1) 016402 012737 016546 000024 $PURDN: MOV SILLUP,@#PWRVEC :;SET OR FAST UP 
(1) 016410 012737 000340 000026 MOV #400 a#PWRVEC+2 :;PRI0 
(3) 016416 010046 MOV RO,-(SP) he ON STACK 
(3) 016420 010146 MOV R1,-(SP) COU RT ON STACK 
(3) 016422 010246 MOV R2,-(SP) *:PUSH R2 ON STACK 
(3) 016424 010346 MOV R3,-(SP) *:PUSH R3 ON STACK 
(3) 016426 010446 MOV R4.=(SP) +:PUSH R4 ON STACK 
(3) 016430 010546 MOV R5.=(SP) *:PUSH R5 ON STACK 
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3zTHIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 


CVDRCB DRV11J DIAG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 R DOWN AND UP ROUTI SEQ 0064 
(3) 016432 017746 100306 MOV at =(SP) 2 ¢PUSH @SWR ON STACK 
(1) 016436 010637 01655 MOV P, SSAVR6 AVE SP 
(1) 016442 012737 016454 000024 MOV PSPURUP. @#PWRVEC’ ;;SET UP VECTOR 
(1) 016450 000000 HALT 
3 016452 000776 BR 72 3 HANG UP 
(2) ZEEE ISIS IIIS III IIIT 
1) “POWER UP ROUTINE 
(1) 016454 012737 016546 000024 $PWRUP: MOV #SILLUP ,a#PWRVEC eaSeT FOR FAST DOWN 
(1) 016462 013706 016552 MOV $SAVR6, SP 3GET 
(1) 016466 005037 016552 CLR SSAVR6 SiMALT LOOP FOR THE TTY 
(1) 016472 005237 016552 1$: INC SSAVR6 WAIT FOR THE INC 
(1) 016476 001375 BNE 1$ :0F WORD 
(3) 016500 012677 162434 MOV (SP) +, aSWR 0 STACK INTO @SWR 
(3) 016504 012605 MOV (SP)+,R5 33POP STACK INTO R5 
(3) 016506 012604 MOV (SP)+,R4 33POP STACK INTO R4 
(3) 016510 012603 MOV (SP) +,R3 33POP STACK INTO R3 
(3) 016512 012602 MOV (SP)+,R2 33POP STACK INTO R2 
(3) 016514 0126 MOV (SP)+,R1 33 OP STACK INTO R1 
(3) 016516 012600 MOV (SP)+,RO 33POP_STACK INTO RO 
(1) 016520 012737 016402 000024 MOV #SPWRDN, A#PWRVEC i3SET UP THE POWER DOWN VECTOR 
(1) 016526 012737 000340 000026 MOV #340, a#PWRVEC+2 ;:PRIO:7 
(1) 016534 104401 TYPE i EREP PORT THE POWER FAILURE 
(1) 016536 016554 SPWRMG: .WORD PWRMSG ; sPOWER FAI MESSAGE POINTER 
(1) 016540 012716 MOV (PC)+, (SP) ART AT START1 
(1) 016542 002 SPWRAD: .WORD START4 7 :RESTART ADDRESS 
(1) 016544 000002 RTI 
(1) 016546 000000 SILLUP: HALT 33 THE POWER UP SEQUENCE WAS STARTED 
(1) 016550 000776 BR 72 :3 eerone THE POWER DOWN WAS COMPLETE 
(1) 016552 000000 SSAVR6: 0 PUT THE SP HERE 
4a} 016554 005015 042522 052123 ae eASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 
At -SBTTL TRAP DECODER 
(2) EE eee 
(1) SATIS ROUTINE WILL PICKUP THE LOWER BYTE OF | **TRAP’’ INSTRUCTION 
(1) :*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING UADDRESS 
(1) [*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3 7*GO TO THAT ROUTINE. 
(1) 016606 010046 STRAP: MOV RO,-(SP) 33 SAVE _RO 
( 016610 016600 000002 MOV (SP), RO 23GET TRAP Se ee 
( 016614 005740 TST (RO) 
( 016616 111000 MOVB (RO), RO SiGET T BY TE ©. TRAP 
( 016620 0063 ASL RO OSI TION FOR INDEXING 
( 016622 016000 016642 MOV $TRPAD(RO) ,RO $INDEX TO TABLE 
¢ 016626 000200 RTS RO 33:G0 TO ROUTINE 
( 
( 016630 011646 STRAP2: MOV (SP) ,=(SP) 33;MOVE THE PC DOWN 

( 016632 016666 000004 000002 MOV 4(SP§,2(SP) 7sMOVE THE PSW DOWN 

; 016640 000002 RTI zzRESTORE THE PSW 

( 


LN Se ts Rt 
er Nee Nr Ne Ne Ns Se a a ee ee er er 


-SBTTL TRAP TABLE 


sss snes 
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CVDRCB.P11 10-AUG=81 10:51 TRAP TABLE 





~ 
Ww 
~~ 


(3) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3) ‘*BY THE ‘TRAP’ INSTRUCTION. 
(3) : ROUTINE 
(3) 016642 016630 STRPAD: .WORD $TRAP2 
(3) 014444 013534 $ ::CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
(3) 016646 014362 $TYPOC :;CALL=TYPOC RAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 016650 014336 $TYPOS :;CALL=TYPOS RAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 016652 014376 STYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 016654 014564 STYPDS :;CALL=TYPDS TRaps$( 104408) TYPE DECIMAL NUMBER (WITH SIGN) 
(3) 016656 015666 SGTSWR ;;CALL=GTSWR _ TRAP+6(104406) GET SOFT-SWR SETTING 
(3) 016660 015616 SCKSWR ::CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwWR 
(3) 016662 016100 SRDCHR ::CALL=RDCHR §_TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
2 016664 016230 SRDLIN ::CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
1775 .SBITL_ ASCII MESSAGES 
1776 2GPA TITLED: .ASCIZ_ <15><12>/CVDRCA DRV11U DIAG TEST PART 1 £<15><12> 
1777 016666 005015 053103 051104 TITLED: .ASCIZ Beset2>/cVDRCS DRVI1J DIAG TEST PART 1 /<15><12> ;:GP, 
1778 016734 005015 051104 030526 TLCABL: .ASCIZ <15><12>/DRV11J CABLE REQ'D/<15><12> 
1780 016763 122 043505 052040 EM1:  .ASCIZ /REG TIMEOUT ER/ 
1781 077002 042522 020107 042522 EM2:  .ASCIZ ‘REG READ/WRITE ER* 
1782 0170246 051111 020122 042522 EM3:  .ASCIZ /IRR REG ER/ 
1783 017037 101 051103 051040 .EM4: <ASCIZ /ACR REG ER/ 
1784 017052 046511 020122 042522 "EMS: .ASCIZ /IMR REG ER/ 
1785 017065 111 051123 051040 EM6:  <ASCIZ /ISR REG 
1786 017100 044103 050111 051440 EM7: .ASCIZ /CHIP STAT ER/ 
1787 017115 105 051122 041520 DH1:  .ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 
1788 017162 051105 050122 020103 DH2: §§.ASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT RCVD/ 
1790 017240 EVEN 
1791 017240 001116 001362 001122 DT1:  $ERRPC,TSTNUM,SBDADR,$GDDAT,$BDDAT,0 
1792 017254 001116 001362 001122 DT2:  S$ERRPC.TSTNUM.$BDADR,$GDADR.$GDDAT.$BDDAT,0 
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CVDRCB.P11  10-AUG-81 10:51 FALCON (KXT=11) UPGRADE ROUTINES. z2GPA 
1794 .SBTTL FALCON (KXT=11) UPGRADE ROUTINES. 72GPA 
1796 ; THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIAGNOSTIC(S) 
1797 ; TO RUN ON A FALCON (KXT=-11) BASED SYSTEM. 
1798 : ORE TERMINE WHETH ER NER RE A FALCON OR NOT, WE'LL asizé THE 1ST 3/4 OF 
1799 ; THE 1/0 PAGE (28K 19, 31k). FALCON 4AS 2KW LOCAL RAM AT 28K(+4) TO 30K 
1800 + AND A MA T AT 30K TO 31K. CONSEQUENTLY, ALL 1/0 DEVICES MUST 
1801 : BE PLACED BETWEEN 174600 AND 177976. ADDITIONALLY, WE'LL STRAP THE 
1802 ; EMT AND TRAP SERVICE LEVEL TO PRI6, AND SET THE HALT VECTOR SO THAT 
1803 : WE CAN STOP THE SUCKER ! 
1805 ; 10 MINIMIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE, _THE 
1806 + BULK OF THIS CODE IS PLACED IN THE FLOATING VECTOR SPACE (400-776). 
1807 : IF THE CPU AT HAND IS A FALCON (KXT11), IT STAYS THERE (NO HARM DONE). 
oS : OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL TRARY CATCHER STATE. 
1810 017272 005227 177777 FALCON: INC #1 : ONCEONLY !!! z3GPA 
1811 017276 001002 BNE 1$ GPA 
1812 017300 004737 000400 CALL KXTCHK : eer he oy CHECK 33GPA 
1813 017304 005727 1$: TST (PC) + : TEST FALCON FLAG... S:GPA 
1814 017306 000000 KXTFLAG: 0 Be} FALCON. . GPA 
1815 017310 000207 RETURN +. AND RETURN TO CALLER... S:GPA 
1817 017312 $SVPC= . GPA 
1818 000400 .= 400 : RESTORE FROM 374:376 AT END ::GPA 
1819 000400 005037 017306 KXTCHK: CLR KXTFLAG t ASSUME NOT FALCON. T:GPA 
1820 000404 013746 000004 MOV ars ,-(SP) + SAVE AERROR VECTOR: SIGPA 
1821 000410 012737 000504 000004 MOV #23. ak + SET A TRAP CATCHER. [:GPA 
1822 000416 012700 160010 MOV #160010,R0 : FALCON RAM STARTS AT 28K+4.  ::GPA 
1823 000422 005720 1$: TST (RO) + : + GPA 
1824 000424 000240 240 3 
1825 000426 020027 174000 CMP RO.#174000 : SIZE TO 31k. 2:GPA 
1826 000432 103773 BLO 1$ GPA 
1827 000434 010037 017306 MOV RO, KXTFLAG ; MUST BE FALCON, SET THE FLAG ::GPA 
1828 000440 012700 000040 MOV #40,RO0 + GET PRI1 BIT.. SIGPA 
1829 000444 040037 000006 BIC RO,ah6 f+ «AND LOWER BUS-ERROR... [:GPA 
1830 000450 040037 000016 BIC RO. a#16 es t: 
1831 000454 040037 000022 BIC RO, a#22 Ba SON ciet GPA 
1832 000460 040037 000032 BIC RO. a#32 +. ..EMT.. GPA 
1833 000464 040037 000036 BIC RO, a#36 3+ AND TRAP SERVICE TO PRIG =: GPA 
1834 000470 012737 170000 000140 MOV #170000,a4140 : ENABLE "BREAK" HALT. [GPA 
1835 000476 012637 000004 MOV (SP)+,a%4 * RESTORE ERROR VECTOR... 7:GPA 
1836 000502 000207 RETURN :.. AND RETURN. [:GPA 
1838 000504 012716 000512 2$: MOV #3$,(SP) 3; TRAP -- NOT A FALCON... 3:GPA 
1839 000510 000002 RTI 3+». CONTINUE. [:GPA 
1840 000512 012637 000004 3$: MOV (SP)+, an + RESET ERROR VECTOR 3 
1841 000516 012700 000402 MOV # * SET-UP TO RESTORE FLOATING... ::GPA 
1842 000522 013701 000376 MOV af376R 32 VECTOR § (400 - 776). * GPA 
1843 000526 010602 MOV : SAVE STACK POINTER IN R2 [:GPA 
1844 000530 012704 000570 MOV ses aa 
1845 000534 014446 4$: MOV wenn -(SP) PUSH THE RESTORE CODE... r:GPA 
1846 000536 020427 000546 CMP R4,45$ +. ONTO THE STACK. +:GPA 
1847 000542 101374 BHI 4$° 3: 
1848 000544 010607 MOV SP,PC : AND EXECUTE IT. [:GPA 
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1850 

1851 

S26 

1853 000546 910068 177776 
1854 000552 01011 
1855 000554 022020 
1856 000556 oc! 000776 
1857 000562 1017 
1858 000564 010206 
1859 000566 000207 
1860 000570 

1861 

1862 

1863 

1864 

1865 

1866 000104 
1870 

1871 017312 
1872 017312 
1873 000001 





MACY11 SP6(1065) 


6 
10-AUG-81 10: sa PAGE 5-1 


FALCON (KxTeT1 UPGRADE ROUTINES. 73GPA 


: THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 


gs: 


a 
+ IF FALCON, THIS AREA IS FREE FOR ANY PROGRAM UNIQUE 
3 CHANGES oR DATA STRUCTUR 
: IF USED, YOU'D BETTER PROTECT IT !!! 


nee 


LASTAD= 


MOV RO,-2(RO) RESTORE .+#2... 


MOV R17. (RO) Po tg (OR 10T). 
CMP (RO) +, (RO) + 

CMP RO,A776 

BLOS 5$ : LOOP "TIL DONE 


R2,SP THEN RESTORE SP. 


MOV 
RETURN 6 AND RETURN TO CALLER 


<1000-.>/2 
-=$SVPC 


- END 


; FREE WORDS LEFT. 
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SYMBOL TABLE 


CVDRCB.P11 10-AUG=81 10:51 SEQ 0068 
ABASE = 164160 BEGPAT 013232 DRCSA 001342 PIRQVE= 000240 SW6 == 000100 — 
ACDW1 = 000000 pores 01 $i RC 001346 PRO = 000000 SWw7 = = 000200 
ACDW2 = 000000 BGCHPS 013334 DRCSC 001352 PRi = 000040 SW8 = = 000400 
ACPUOP= 009000 BGCHP4 013376 DRCSD 001356 PRe = 000100 Sw9_ _= 001000 
ACRLOC 001400 BGPAT1 013234 DRDBA 001344 PR3 = 000140 TBITVE= 000014 
ADDWO = 000000 BITO = 000001 DRDBB 001350 PR4 = 000200 TITLED 016666 
ADDW1 = 000000 BITOO = 000001 DRDBC 001354 PRS = 000240 KVEC = 000060 
ADDW10= 000000 B1T01 = 090002 DRDBD 001360 PRo = 000300 TLCABL 016734 
ADDW11= 000000 Bitte = 000004 DSWR = 177570 PR7 = 000340 PVEC = 00 
ADDW12= 000000 BIT03 = 000010 DT1 017240 PS = 177776 TRAPVE= 0000 
ADDW13= 000000 BIT04 = 000020 DT2 017254 PSW == 177776 TRIVEC= 000014 
ADDW14= 000000 BITOS = 000040 EDCHP1 013254 PVMA = 000340 STNUM 0013 
ADDW15= 000000 BIT06 = 000100 EDCHP2 013312 PWRMSG 016554 TST1 002142 
ADDW2 = 000000 BIT07 = 000200 EDCHPS 013354 PWRVEC= 000024 TST10 0033 
DW3 = 000000 BITO8 = 000400 EDCHP4 013416 RDCHR = 104410 TST11 003422 
DwW4 = 000000 BITO9 = 001000 EMTVEC= 000030 RDLIN = 104411 TST12 003516 
ADDWS = 000000 BIT1 = 000002 EM] 016763 RDY = 100000 TST13 = 003612 
DW6 = 000000 BIT10 = 002000 EM2 017002 RESVEC= 000010 TST14 0037 
ADDW7 = 000000 BIT11 = 004000 EMS 017024 R6 =%900006 TST15 004056 
ADDW8 = 000000 BIT12 = 010000 EM4 017037 R7 =%000007 TST16 00422 
= 000000 BIT13 = 020000 EMS 017052 SI = 000060 TST17 = 00452 
ADEVCT= 000000 BIT14 = 040000 EM6 017065 SIRR_ = 000120 TST2 002220 
ADEVM = 000001 BIT15 = 100000 017100 SSIMR = 000070 TST20 005012 
= 000000 BIT2 = 000004 ENDDAT 013532 SSIRR = 000130 TST21 005312 
AE = 000000 BITS = 000010 ENDPAT 013440 STACK = 001100 TST22 
AFATAL= 000000 BIT4 = 000020 ERRVEC= 000004 START 001402 TST23 005734 
Ri= 000000 BITS = 000040 FALCON 017272 TART1 002034 TST24 
AMADR2= 000000 BIT6 = 000100 GTSWR = 104406 STKLMT= 177774 TST25 006350 
AMADR3= 000000 BIT7 = 000200 HT = 000011 001140 TST26 006554 
AMADR4= 000000 BIT8 = 000400 = 001000 SWRCK 015164 TST27 
AMAMS1= 000000 9 = 001000 LOC 001372 SWREG 900176 ST3 002412 
AMAMS2= 000000 BPTVEC= 000014 INTFLG 001366 S = 0000 TST30 007010 
AMAMS3= 000000 CHPISR= 00014 IOTVEC= 000020 0 = 000001 TST31 007102 
AMAMS4= 000000 = 0000 IRRLOC 001376 Sw01 = 000002 TST32 007202 
AMSGAD= 000000 CIRMR = 000020 ISRLOC 001374 Sw02 = 000004 TST33 © 00733 
AMSGLG= 000000 CIRR = 000100 KXTCHK 000400 SwO3 = 000010 TST34 007456 
AMSGTY= 000000 CISR_ = 000160 KXTFLA 017306 S = 000020 TST35 007556 
AMTYP1= 000000 CKSWR = 104407 LASTAD= 017312 SwOS = 000040 TST36 = 007 
AMTYP2= 000000 CLRCSR 013124 LF = 000012 Sw06 = 000100 TST37 = 1 
AMTYP3= 000000 CLRIRR 013174 LMD04 = 000200 SwO7 = 000200 TST4 002522 
AMTYP4= 000000 CR = 0000 LMDS7 = 000240 SwO8 = 000400 TST40 010144 
APASS = 000000 CRLF = 000 MACR = 900254 swo9 = 001000 TST41 010270 
IGR= 000000 CSIMR = 000050 MI = 000244 Swi = 000002 TST4 010444 
APTCSU= 000040 CSIRMR= 000030 MIRR = 000250 Sw10 = 002000 TST4 010652 
ENV= CSIRR = 00011 MISR = 000240 SWi1 = 004000 TST44 = 011172 
APTSIZ= 000200 CSISR = 000170 NEXPAS 002100 SWi2 = 010000 TST45 011460 
APTSPO= 000100 DDISP = 177570 NEXPA1 002104 SW13 = 020000 TST46 §=©012010 
ASWREG= 000000 DH1 017115 NXDEV. 012742 SW14 = 040000 TST47 012276 
ATESTN= 000000 DH2 017162 NXDEV1 012746 Sw15 = 100000 TST5 002620 
IT = 000000 DIR = 000400 PACR 000300 SW = 000004 TST50 biS2o8 
AUSWR_ = 000000 DISPLA 001142 PATDAT 013442 Sw = 000010 TSTS1 012624 
AVECT1= 000000 DISPRE 000174 PIMR = 900ces SsWw4 = 000020 TST6 002766 
AVECT2= 000000 DMAP 001364 PIRQ = 177772 SW5 == 000040 TST? 003160 


as 
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SYMBOL TABLE SEQ 0069 


CVDRCB DRV11J_DIAG TST PRT1 
CVDRCB.P11 10-AUG=81 10:51 


TYPDS = 104405 SENDCT 013036 SINTAG 001135 SOMODE 014562 STRAP 016606 
TYPE = 104401 SENDMG B13107 SITEMB 001114 $OVER 015600 $TRAP2 016630 
TYPOC = 104402 SENULL 013104 $LF 001398 $PASS. 001176 TRP = 000012 
TYPON = 1044 SEN oo 1si9 $LFLG 014333 $PASTM 091008 $TRPAD 016642 
TYPOS = 104403 SENVM = 001211 SLPADR 001106 SPWRAD 01654 STSTM 001004 
XXDP 001370 SEOP 013002 $LPERR 001110 PWRDN 016402 STSTNM 001102 
SAPTHD 001000 SEOPCT 013030 SMADR1 001222 SPWRMG 016536 STTYIN 016336 
SATYC 014114 SERFLG 001103 SMADR2 001226 PWRUP 016454 STYPDS 014564 
$SATY1 014070 SER 001115 SMADRS 001232 SQUES 001164 TYPE 013534 
SATYS 014076 SERROR 015010 SMADR4 001236 $RDCHR 016100 STYPEC 013746 
SATYS 014106 SERRPC 001116 SMAIL. 001170 SRDLIN 016230 STYPEX 014066 
SAUTOB 001134 SERRTB 001252 $MAMS1 001220 $RDSZ = 000010 $TYPOC 014362 
SBASE 001244 SERRTY 015202 SMAMS2 001224 SRTINAD 013102 STYPON 014376 
$BDADR 001122 SERTTL 001112 SMAMS3 001230 SSAVR6 016552 STYPOS 014336 
SBDDAT 001126 SESCAP 001162 SMAMS4 001234 $SCOPE 015336 SUNIT 001202 
$CDW1 001250 SETABL 001210 SMBADR 001002 $SETUP= 000117 SUNITM 001010 
SCHARC 014064 SETEND (001252 SMFLG 014332 TUP = 177777 SUSWR 001214 
SCKSWR 015616 SFATAL 001172 EW 016371 S$SVLAD 015544 $VECT1 001240 
SCMTAG 001100 SFFLG 014334 SGAD 001204 $SVPC = 017312 VECT2 001242 
CM3 = 000000 SFILLC 001156 SMSGLG 001206 SWR_ = 165400 $XOFF = 000025 
SCNTLG 016353 SFILLS 001155 SMSGTY 001170 SSWREG OV1212 = 00 
SCNTLU 016346 FREE = 000104 SMSWR 016360 SWRMK= 000000 $XTSTR 015350 
SCPUOP 001216 S$GDADR 001120 SMTYP1 001221 STESTN 001174 $$GET4= 000000 
SCRLF 001165 SGDDAT 001124 SMTYP2 001225 STIMES 001160 SOFILL 014561 
LK_ 015000 $GET42 013060 SMTYPS 001231 TKB 001146 . = 017312 
SDEVCT 001200 $GTSWR 015666 SMTYP4 001235 $TKS 001144 -$x = 001000 
SDEVM 001246 $HD = 000003 SMXCNT 015614 $™TN. = 000052 
SDOAGN 013100 IBTS 00100 SNULL_ 001154 $TPB 001152 
$DTBL 014770 SICNT 001104 SNWTST= 000001 STPFLG 001157 
SENDAD 013070 SILLUP 016546 SOCNT 014560 $TPS 001150 
- ABS. 017312 000 CON RW ABS GBL 0D 


ERRORS DETECTED: 0 


CVDRCB, CVDRCB=CVDRCB 
RUN-TIME: 22 10 .3 SECONDS 
RUN-TIME RATIO: 93/35=2.8 
CORE USED: 25K (49 PAGES) 





